Предмет: Информатика,
автор: FredRaches
Напечатать столбиком все целые числа от 1 до к (к>2).
Найти сумму квадратов всех целых чисел от 10 до 50.
PascalABC
Ответы
Автор ответа:
0
Ответ:
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.
Интересные вопросы
Предмет: Русский язык,
автор: Ульяшка19997
Предмет: Русский язык,
автор: НастюшкаШвед
Предмет: Английский язык,
автор: gvfbylih
Предмет: Математика,
автор: Аноним