//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var a := SeqWhile(1, i -> i + 1, i -> i < 20);
Println(a);
Println(a.Where(x -> x mod 3 = 0).Average);
Writeln();
for var i := ReadInteger('a =') to ReadInteger('b =') do
writeln(i, ' ', i * i, ' ', i * i * i);
end.
Ответ: а) Антонов
1)Епанчин
2)Демидов
3)Гусев
4)Воробьев
5)Борисов
6)Антонов
дано: i=4
найти: N - ?
решение:
формула: N=2i => N=2×4, N=16
ответ: 16
За месяц вирус А заполнит 1 Гб, за этот же месяц: вирус В заполнит 0,5 Гб, вирус С Гб, вирус D Гб.
1 + 0,5 + + = 2 Гб
Ответ: 2