Program z1; var a:array [1..30] of integer; i,k:integer; begin k:=0; for i:=1 to 30 do begin readln a[i]; if a[i] mod 2 =0 then k:=k+1; end; wreteln('четных',k); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
