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

Найти все двузначные числа, кратные 3. Паскаль. Через repeat, until
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы