Написать программу для вычисления суммы цифр четырехзначного числа

nikmeldov nikmeldov    3   08.04.2020 03:58    1

Ответы
kolesnik23 kolesnik23  12.10.2020 22:08

var a:integer;

Begin

readln(a);

Writeln(a mod 10 + a div 10 mod 10 + a div 10 div 10 mod 10 + a div 1000);

end.

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