var a:integer;
begin
a:=1;
while a<=20 do
if a mod 2 = 0
then
write(a,' ');
a:=a+1;
end;
end.var a:integer;
end.
Это от 1 до 20,дальше незню
Объяснение:
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,дальше незню
Объяснение: