уРОК 11 задача 4
Primary tabs
http://fkn.ktu10.com/?q=node/7341
Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
var i:integer; begin i := 35; while i <= 117 do begin i:=i + 1; if ((i mod 2) = 0)then write(i, ' '); end; writeln(); i := 45; while i <= 99 do begin i:=i + 1; if ((i mod 2) = 1)then write(i, ' '); end; readln(); end. </pre>
var i:integer; begin i := 35; while i < 117 do begin i:=i + 1; if ((i mod 2) = 0)then write(i, ' ') else if ((i >= 45) AND (i <= 99)and ((i mod 2) = 1)) then write(i, ' '); end; readln(); end.
- Log in to post comments
- 870 reads
vedro-compota
Mon, 10/11/2021 - 09:19
Permalink
неправильное форматирование
_____________
матфак вгу и остальная классика =)