Регистрация
1231234564561
14.02.2020 00:58
Информатика
Есть ответ 👍

Что будет напечатано по выполнении следующей инструкции на языке Pascal

104
446
Посмотреть ответы 2

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

карина2148
карина2148
4,8(80 оценок)

как найти ответы на во которых так много

Васяян
Васяян
4,5(76 оценок)

function sum (n : integer) : integer;

begin

  sum : = 0;

  while n > 0 do

  begin

    sum : = sum + n mod 10;

    n : = n div 10;

  end;

end;

 

var

  a : integer;

begin

  repeat

    writeln ('a = ');

    read (a);

  until sum (a) = 10;

  writeln ('ok');

end.

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