Задача 11 Урок 11 While
Primary tabs
{Вывести на экран все числа от 4 до 100 с шагом 4,
т.е.: 4 8 12 16.......100}
var a:integer; begin a := 0; while (a <> 100) do begin a:= a + 4; write(a, ' '); 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
- 875 reads
vedro-compota
Sat, 05/01/2021 - 12:53
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)