Регистрация
Aikaid
28.03.2021 19:28
Информатика
Есть ответ 👍

Вводится число от 1 до 10000. найти сумму цифр числа: если сумма цифр равна 10, то вывести на экран сообщение "число удовлетворяет условию ", иначе "число не удовлетворяет условию "

254
354
Посмотреть ответы 2

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

karinarei2017
karinarei2017
4,5(31 оценок)
Var n,s : integer; begin   readln(n);   s: =0;   while n> 0 do   begin       s: =s+(n mod 10);       n: =n div 10;   end;   if s=10 then writeln('число удовлетворяет условию ')   else writeln('число не удовлетворяет условию '); end.
Мария111111121
Мария111111121
4,6(62 оценок)

var n,x,k: integer;

function sum(n: integer): integer;

var s: integer;

begin

s:= 0;

while (n>0) do

begin

s:= s+n mod 10; {???}

n:= n div 10; {???}

end;

sum := s; {???}

end;

begin

readln(n);

x:= n; {???}

k:= 0; {???}

while (x>0) dо

begin

x:=x-sum(x);

inc(k);

end;

writeln('k=', k);

end.

Объяснение:

Это правильный ответ!

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