Например: стол 1 достать тетрадь 2 открыть тетрадь 3 взять карандаш 4 нарисовать ножки стола 5 верхушку стола (могут быть ошибки в словах)
1. Множество натуральных чисел, делящихся на 6.
2. Множество натуральных чисел, каждый элемент которого делится либо на 2, либо 3, либо на 6.
//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.
4^3=64=1000(в степени счисления 4)
1000+1=1001.
Ответ:Основание 4