Question

СРОЧНО, ДАЮ 35 БАЛЛОВ, ПОЖАЛУЙСТА написать программу в паскале: посчитать числа в квадрате от 1 до n

Answer 1

Ответ:

Объяснение:

program Num1;

var i, s, n : integer;

begin

  write('Последнее число n = ');  

  readln(n);

  s:= 0;

  for i:=1 to n do s:= s + i*i;

  writeln('Сумма квадратов всех чисел = ', s)

end.

Answer 2

Конечно, я могу помочь вам написать программу на языке Pascal для вычисления квадрата чисел от 1 до n. Вот пример программы:

program КвадратыЧисел;

var
  i, n: Integer;

begin
  // Ввод значения n
  Write('Введите значение n: ');
  Readln(n);

// Печать заголовка
  Writeln('Число    Квадрат');

// Цикл для вычисления и вывода квадратов чисел
  for i := 1 to n do
  begin
    Writeln(i:5, '    ', i * i:5);
  end;

Readln;
end.

Объяснение кода:

1. `var i, n: Integer;` - объявляем переменные `i` (для цикла) и `n` (для ввода пользователем).

2. `Write('Введите значение n: '); Readln(n);` - запрашиваем у пользователя ввод значения `n`.

3. `Writeln('Число Квадрат');` - выводим заголовок таблицы.

4. `for i := 1 to n do` - начинаем цикл от 1 до `n`.

5. `Writeln(i:5, ' ', i * i:5);` - выводим число и его квадрат с отступами для форматирования таблицы.

6. `Readln;` - ждем, пока пользователь нажмет Enter перед закрытием программы.

Просто скопируйте этот код в среду разработки Pascal и выполните программу. После ввода значения `n` программа выведет таблицу квадратов чисел от 1 до `n`.