//дано трехзначное число найдите сумму его цифр 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.
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.