Вводится трёхзначное число. найдите и выведите сумму его цифр. ответ прикрепите в виде файла в среде pascalabc.

ivanovaa750 ivanovaa750    2   02.06.2019 17:50    0

Ответы
nikolesmit nikolesmit  03.07.2020 11:58
Var a:integer;
begin
read (a);
if (a mod 10<1) or (a div 100 < 1) or ((a mod 100) div 10 < 1) or (a div 1000 >= 1) then
begin
writeln ('Неверный ввод');
halt;
end else
begin
writeln ((a mod 10) + (a div 100) + ((a mod 100) div 10));
end
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика