var a: array [1..30] of integer; f, i,k: integer;
begin f:=0;
for i:=1 to 30 do
begin
read(a[i]);
if (a[i] mod 2=0) and (f=0) then
begin f:=1; k:= i;
end;
end;
writeln;
if f=0 then write(‘четных нет’) else write(k);
const n=30;
var a: array [1..n] of integer; i: integer;
begin
for i:=1 to 30 do read(a[i]); writeln;
i:=1;
while (i<=n) and (a[i] mod 2 <>0) do inc(i);
if i>n then write(‘четных нет’) else write(i);
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть