===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
a.Println; // 1
SeqGen(n, i -> a[i] / Sqr(i + 1)).Sum.Println; // 2
a.Count(p -> (p mod 3 = 0) and (p mod 10 = 7)).Println; // 3
a.Where(p -> p.IsEven and (p > 0)).Sum(p -> Sqrt(p)).Println; // 4
// 5
var m := a.Min;
if m < 0 then
Println(m)
else
Println('Нет отрицательных чисел')
end.
1 задание.
-----------------------------------------------------------------------------------------------------
День недели | Газеты
|---------------------------------------------|----------------------------------
| Известие | Технические газеты | Медицинские новости
-----------------------------------------------------------------------------------------------------
Понедельник | 8 экз. | 7 экз. | 5 экз.
-----------------------------------------------------------------------------------------------------
Вторник | 13 экз. | 4 экз | 8 экз
-----------------------------------------------------------------------------------------------------
Среда | 10 экз. | 10 экз | 12 экз
-----------------------------------------------------------------------------------------------------
Четверг | 8 экз. | 7 экз. | 15 экз.
-----------------------------------------------------------------------------------------------------
Пятница | 10 экз | 5 экз | 8 экз
-----------------------------------------------------------------------------------------------------
Суббота | 9 экз | 13 экз | 8 экз
-----------------------------------------------------------------------------------------------------
Воскресенье | 5 экз | 6 экз | 9 экз
-----------------------------------------------------------------------------------------------------
Всего | 63 экз. | 52 экз. | 65 экз
------------------------------------------------------------------------------------------------------
Могу только с этим помочь(
Ответ:
1) 500 идущих 3, следуешь алгоритму
33333333333... у тебя 33 есть, значит ответ 250 2(двоек)
2) 500 идущих 2 , следовательно если ты заменяешь 2 цифры на 1, то делишь 500/2 и получаешь: 250 3(троек)
3) 300/2=150 двоек
200/2=100 троек