Дано четырехзначное число. найти: сумму его цифр. написать программу на pascal'е

RAYDEN02 RAYDEN02    3   21.05.2019 19:20    0

Ответы
Evloevakhava Evloevakhava  16.06.2020 17:16

var n,s:integer;
x1,x2,x3,x4:integer;
begin
write('Vvedite N = ');
read(n);
x1:=n div 1000;
x2:=n mod 1000 div 100;
x3:=n mod 100 div 10;
x4:=n mod 10 div 1;
s:=x1+x2+x3+x4;
writeln(s);
end.

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