Var i,s:integer;begins:=0;writeln('Pervie 5 chetnyh elementov:'); for i:= 1 to 100 do if (i mod 2 = 0) and (s<5) then begin write(i,' '); s:=s+1; end;end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
