var a: array [1..200] of smallint; n,s: byte; begin read(n); for var i := 1 to n do begin read(a[i]); if (a[i].ToString.Length=2) and (a[i] div 10 = 7) then s:=s+1; end; write(s);end.
или
begin ReadArrInteger(ReadInteger).Count(x->(x in 10..99) and (x div 10 = 7)).Printend.
Примеры работ:
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
