Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

"Найти сумму цифр четырёхзначного числа" задача pascal

Ответ оставил Гость

Var a,a1,a2,a3,a4:integer;
begin
writeln(a=);readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
writeln(цифры: ,a1:2,a2:2,a3:2,a4:2);
writeln(sum=,a1+a2+a3+a4);
end.