Построить программу в Паскаль. "Дано трехзначное число. Определить, будет ли сумма его цифр больше 15." Пожалуйста!
var a,b,c,d:integer;
begin
read(d);
a:=d div 100;
b:= (d div 10) mod 10 ;
c:=d mod 10;
if (a+b+c) >15 then
writeln(YES)
else
writeln(NO);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
