Задание:
Написать программу на паскале выводящую на экран все четные числа от 20 до 40
Решение:
Program num1; Uses crt; Var i: integer; Beginclrscr; for i: =20 to 40 doif (i MOD 2)=0 then write (i,'); End.
Знаете другой ответ?
Написать программу на паскале выводящую на экран все четные числа от 20 до 40
Program num1; Uses crt; Var i: integer; Beginclrscr; for i: =20 to 40 doif (i MOD 2)=0 then write (i,'); End.
Знаете другой ответ?