Дано трехзначное число найдите сумму его цифр
//дано трехзначное число найдите сумму его цифр
var x,y,i:word;
begin
writeln(Введите трехзначное число);
readln (x);
while (999
writeln(Вы ввели не трехзначное число попробуйте еще раз);
readln (x);
end;
for i:=1 to 3 do // число делиться на цифры
begin
y:=y+x mod 10;
x:=x div 10;
end;
writeln(Сумма цифр данного числа ,y);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
