Ответы
Ответ дал:
1
var a,b,c:integer;
begin
for a:=1 to 100 do begin
if a mod 2 = 0 then write(' ',a,' ');
end;
end.
begin
for a:=1 to 100 do begin
if a mod 2 = 0 then write(' ',a,' ');
end;
end.
Аноним:
Либо в цикле While пройти от i=2, наращивая i на 2.
Похожие вопросы
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад