Найти сумму цифр четырёхзначного числа паскаль

Arhci43345 Arhci43345    2   24.07.2019 14:00    0

Ответы
Насонка Насонка  03.10.2020 11:53
Readln(x);
x1:=x div 1000;
x2:=(x-(x1*1000)) div 100;
x4:=x mod 10;
x3:=(x-x3-(x1*100)-(x2*100) div 10;
s:=x1+x2+x3+x4;
writeln(s);
readkey;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика