Найти все двузначные числа, кратные 3.

Паскаль. Через repeat, until

Question

Нилыч

29 февраля, 03:59

+4

Ответы (1)

Знаете ответ на вопрос?

Викул · Answer 1

Var

a, i: integer;

begin

a:=0;

i:=10;

repeat

if ((i mod 3) = 0) then

a:=a+1;

i:=i+1;

until i = 100;

writeln (a) ;

end.

Найти все двузначные числа, кратные 3.Паскаль. Через repeat, until