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.

Answer 2

Для печати всех целых чисел от 1 до к (где к > 2) в столбик в PascalABC можно использовать следующий код:

pascalCopy code
program PrintNumbers;
var
  k, i: integer;
begin
  write('Введите значение k (>2): ');
  readln(k);
  
  writeln('Целые числа от 1 до ', k, ':');
  for i := 1 to k do
    writeln(i);
end.

Чтобы найти сумму квадратов всех целых чисел от 10 до 50 в PascalABC, используйте следующий код:

pascalCopy code
program SumOfSquares;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 10 to 50 do
    sum := sum + i * i;
  
  writeln('Сумма квадратов всех целых чисел от 10 до 50: ', sum);
end.

Просто скопируйте соответствующий код в редактор PascalABC, выполните программу и введите значение k (>2), чтобы получить результаты.