//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.
Ответ:
Если добавить пропущенные пробелы, то верно.
Объяснение:
Можно убедиться в этом, например, так:
Const a:array[1..3]of integer=(13,8,58);
begin
writeln(a[1],' ',a[2],' ',a[3]);
end.
Результат:
13 8 58
Объяснение:
1000 бит больше чем 20 байт.
2 кб и 2048 байт равны, так как 2048 байт равны 2 кб.
Третье к сожалению не знаю.
Программа Проводник является Системным ПО