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

P4ndainst P4ndainst    2   02.04.2020 11:22    0

Ответы
kanaev07 kanaev07  06.08.2020 06:58

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика