СРОЧНО ПОМОГИТЕ решить №2 во всех вариантов ( Можно и всё решить) Могу и больше баллов дать.
Приложения:
![](https://st.uroker.com/files/485/485b85d1751aac66c9fda1c3ddfb554f.jpg)
![](https://st.uroker.com/files/7df/7df28fa59f6f2894b464eb6c0c1a7a5e.jpg)
Ответы
Ответ дал:
0
//PascalABC.NET 3.4.2
Вариант 1 №2
begin
ReadSeqInteger(ReadInteger()).Where(x -> (x mod 3 = 0) and (x mod 10 = 2)).Count.Print;
end.
Вариант 2 №2
begin
var sr := ReadSeqIntegerWhile(x -> x <> 0).Where(x -> (x div 10 <> 0) and (x div 100 = 0));
try
sr.Average.Print;
except
write('NO');
exit;
end;
end.
Ответ дал:
0
Привет, не могли бы мне помочь https://znanija.com/task/31919953 ?Буду очень признательна:)
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад
8 лет назад