Pascal Урок 10 Задача 1 Решение
Primary tabs
Выведите на экран, все четные числа от 35 до 64.
program U10Z1; var i:integer; begin for i:=35 to 64 do if((i mod 2)=0)then write(i,' '); readln(); end.
- Log in to post comments
- 1222 reads
Выведите на экран, все четные числа от 35 до 64.
program U10Z1; var i:integer; begin for i:=35 to 64 do if((i mod 2)=0)then write(i,' '); readln(); end.