Хотябы одно из этого.....Составьте блок-схему и программу вывода четных чисел от 5

до 20 с помощью цикла while​

Ответ:

var a:integer;

begin

a:=1;

while a<=20 do

begin

if a mod 2 = 0

then

write(a,' ');

a:=a+1;

end;

end.var a:integer;

begin

a:=1;

while a<=20 do

begin

if a mod 2 = 0

then

write(a,' ');

a:=a+1;

end;

end.

Это от 1 до 20,дальше незню

Объяснение: