Var ar:array[1..10] of integer;
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
<span>end.</span>
Ш1А - школа (1 - кол), ЗА1КА - заколка, 1БЕГ - разбег (1 - раз), 1УМ - разум, 2Д - парад (2 - пара)
Ответ:
Объяснение:
var i:integer;
begin
for i:=1 to 30 do begin
if i mod 2 = 0 then begin
writeln('*');
end
else
writeln(i);
end;
end.
Как мы тебе его здесь построим? открывай эксель и пиши в ячейках формулы