Задача 6 Урок 10
Primary tabs
http://fkn.ktu10.com/?q=node/8612
Выведите на экран, все числа делящиеся на 3 из диапазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
var i:integer; begin for i:=35 to 117 do begin if ((i mod 3) = 0) then writeln(i, ' '); end; for i:=45 to 99 do begin if ((i mod 2) = 1) then writeln(i, ' '); end; readln(); end.
- Log in to post comments
- 294 reads