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

ustishca ustishca    1   06.06.2019 00:40    0

Ответы
ieoeoeoeosikskd ieoeoeoeosikskd  06.07.2020 10:23
Var a,b,c,d,x:integer;
begin
x:=1234;
a:=x mod 10;
b:=((x mod 100) div 10);
c:=((x mod 1000) div 100);
d:=x div 1000;
x:=a+b+c+d;
writeln (x);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика