Question

Составить программы на Паскале для решения задач: 1. найти сумму первых 100 натуральных чисел; 2. выдать на экран таблицу умножения на 3

Answer 1

1. var s, i: integer;
begin
  for i := 1 to 100 do
   s := s + i;
  writeln('s=', s);
end.

2. var  i, r: integer;
begin
  writeln('Таблица умножения на 3');
  for i := 1 to 10 do
  begin
    r := i * 3;
    writeln(i, ' * 3 = ', r);
  end;
  readln;
end.

Answer 2

Решение задачи 1: Найти сумму первых 100 натуральных чисел

Для решения этой задачи на Паскале можно использовать цикл `for` и переменную для хранения суммы. Вот пример программы:

program SumOfNaturalNumbers;

var
  i, sum: integer;

begin
  sum := 0;
  for i := 1 to 100 do
  begin
    sum := sum + i;
  end;
  writeln('Сумма первых 100 натуральных чисел: ', sum);
end.

В этой программе мы объявляем переменные `i` и `sum`. Затем мы используем цикл `for` для итерации от 1 до 100 и добавляем каждое число к переменной `sum`. В конце программы выводим результат с помощью процедуры `writeln`.

Примечание: Это пример программы на Паскале для решения задачи. Вы можете скопировать этот код и запустить его в среде разработки Паскаля, чтобы увидеть результат.

Решение задачи 2: Вывести на экран таблицу умножения на 3

Для решения этой задачи на Паскале можно использовать два вложенных цикла `for` для итерации от 1 до 10 и вывода таблицы умножения на 3. Вот пример программы:

program MultiplicationTable;

var
  i, j: integer;

begin
  for i := 1 to 10 do
  begin
    for j := 1 to 10 do
    begin
      write(i * j, ' ');
    end;
    writeln;
  end;
end.

В этой программе мы используем два вложенных цикла `for`. Внешний цикл `i` итерируется от 1 до 10, а внутренний цикл `j` также итерируется от 1 до 10. В каждой итерации внутреннего цикла мы выводим произведение `i * j` с помощью процедуры `write`, а затем переходим на новую строку с помощью процедуры `writeln`.

Примечание: Это пример программы на Паскале для решения задачи. Вы можете скопировать этот код и запустить его в среде разработки Паскаля, чтобы увидеть результат.