Регистрация
StefanSalvatori
19.08.2022 21:47
Информатика
Есть ответ 👍

Дано натуральное число. верно ли, что сумма его цифр больше 10? paskal

158
305
Посмотреть ответы 2

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

ddfgdfgdfg
ddfgdfgdfg
4,6(11 оценок)

паскаль пишется как pascal.

 

var

  a, sum : integer;

begin

  read (a);

  sum : = 0;

  while (sum < = 10) and (a > 0) do

  begin

    sum : = sum + a mod 10;

    a : = a div 10;

  end;

  if sum > 10 then write ('yes') else write ('no');

end.

Dianapro111
Dianapro111
4,7(8 оценок)
1) var k,i: integer; begin while i< =10 do begin k: =k+1; if k mod 7 = 0 then begin writeln(k); i: =i+1; end; end. 2) var k,i: integer; begin while i< =11 do begin k: =k+1; if k mod 5 = 0 then begin writeln(k); i: =i+1; end; end.

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