Question

вывести на экран в столбец числа от 1 до 20 через 1
паскаль

Answer 1

Ответ:

var i:integer;

begin

i:=1;

while i<=20 do

begin

writeln(i);

i+=2;

end;

end.

Объяснение:

Пока наша переменная будет меньше 20, мы будем её выводить

(для вывода в столбец используем writeln, если бы понадобился вывод в строку, то использовали бы оператор write)

i+=2 - эта запись аналогична записи i:=i+2