написать в тетради программу, в которой пользователь вводит целое 3-хзначное число, необходимо найти сумму его цифр
Ответы на вопрос
Ответил uaqq
0
var s: integer;
begin
readln(s);
s:= (s div 100)+((s div 10) mod 10)+(s mod 10);
writeln (s);
end.
begin
readln(s);
s:= (s div 100)+((s div 10) mod 10)+(s mod 10);
writeln (s);
end.
Новые вопросы