Регистрация
Nastiakot1
05.01.2021 19:21
Информатика
Есть ответ 👍

Lazarus терезесінің негізгі бөліктері

106
265
Посмотреть ответы 1

Ответы на вопрос:

sodemAN2
sodemAN2
4,6(30 оценок)

program a1;

var              

i,n,s: integer;

begin

assign(input,'input.txt');

assign(output,'output.txt');

reset(input);

rewrite(output);

readln(n);

if n < = 100 then writeln('неверный ввод')

else begin

s : = 0;

while (n > 0) do begin

s : = s + n mod 10;

n : = n div 10;

end;

writeln (s);

end;

close(input);

close(output);

end.

Популярно: Информатика