Построить программу в паскаль. "дано трехзначное число. определить, будет ли сумма его цифр больше 15." !

Ka090907 Ka090907    1   21.05.2019 16:40    0

Ответы
Itupoypomogite1 Itupoypomogite1  01.10.2020 04:26

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика