Дано трехзначное число найдите сумму его цифр

Aigerim735 Aigerim735    2   29.06.2019 03:50    0

Ответы
nesuk07 nesuk07  23.07.2020 07:45
//дано трехзначное число найдите сумму его цифр
var x,y,i:word;
begin
writeln('Введите трехзначное число');
readln (x);
while (999<x) or (x<100) do //в цикле проверяется "трехзначность" числа
  begin
     writeln('Вы ввели не трехзначное число попробуйте еще раз');
    readln (x);
  end;
for i:=1 to 3 do // число делиться на цифры
      begin
        y:=y+x mod 10;
        x:=x div 10;
      end;
writeln('Сумма цифр данного числа ',y);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика