Question

Напечатать столбиком все целые числа от 1 до к (к>2).
Найти сумму квадратов всех целых чисел от 10 до 50.
PascalABC

Answer 1

Ответ:

PascalABC.NET 3.5.1.2290 + .NET Framework 4.7.1

#1

begin

 Range(1, ReadInteger('k = ')).PrintLines;

end.

#2

begin

 Range(10, 50).Select(p -> p ** 2).PrintLines;

end.