Задание:
Выведи на экран все 2-х значные числа, кратные 7. Помагите плиз!
Решение:
a,i: integer; for i=10 to 99 do beginif i mod 7=0 thenwriteln (i); end; end.
Знаете другой ответ?
Выведи на экран все 2-х значные числа, кратные 7. Помагите плиз!
a,i: integer; for i=10 to 99 do beginif i mod 7=0 thenwriteln (i); end; end.
Знаете другой ответ?