Задача 12 Урок 11
Primary tabs
1.Вывести на экран все числа от 4 до 100 с шагом 4
var a:integer; begin a:=4; while a<=100 do begin write(a,' '); a+=4; end; readln(); end. Вывод консоли: 4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100
- Log in to post comments
- 98 reads