Очень прошу, помогите с Паскалем!

1. Напишите программу, которая вычисляет площадь прямоугольника. С клавиатуры вводятся два действительных числа – стороны прямоугольника. Необходимо вычислить его площадь и вывести на экран. Вывод должен быть отформатирован следующим образом: под число отводится 10 знаков, а под вещественную часть – 3.
2. С клавиатуры вводятся 3 целых числа. Определите количество положительных чисел в этом наборе.
3. С клавиатуры вводится четырехзначное число. Получите число, равное произведению его цифр.
4. С клавиатуры вводится натуральное число n. Узнайте, сколько в нем цифр.
5. С клавиатуры вводится натуральное число n. Посчитайте сумму S=1+2+…+n.
6. Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найдите частное от деления нацело N на K, а также остаток от этого деления.
7. С клавиатуры вводится натуральное число N. За ним последовательно вводятся данные о росте N учащихся класса. Определите средний рост учащихся всего класса. Попробуйте решить эту задачу без использования массивов.
8. Заполните элементы массива последовательностью чисел: 2, 5, 10, 17, 26, …
9. Вводится число N, а за ним N целых чисел – элементы массива. Найдите количество отрицательных элементов в этом массиве.
10. С клавиатуры вводится число N. Выведите следующую фигуру (N-строк, на последней строке N звездочек). Подсказка: для решения этой задачи примените конструкцию «цикл в цикле».
11. Массив заполняется целыми числами до «нуля». Замените все положительные числа массива на противоположные им, а отрицательные возведите в квадрат. Выведите изменившийся массив.
12. На вход программе поступает целое число N. Выведите количество делителей N, включая 1 и само число N. Внимание: для решения этой задачи заведите счетчик и не забудьте сначала занести в него значение 0.

Информатика 10 класс Программирование на языке Паскаль Паскаль программа площадь прямоугольника ввод данных форматированный вывод положительные числа четырехзначное число произведение цифр количество цифр сумма последовательности деление нацело остаток от деления средний рост элементы массива отрицательные элементы фигура из звездочек цикл в цикле изменение массива количество делителей счётчик Новый

Давайте рассмотрим решение каждой из поставленных задач по очереди. Я объясню, как мы можем написать программу на языке Паскаль для каждой из них.

1) Вычисление площади прямоугольника

Для начала, нам нужно объявить переменные для сторон прямоугольника и для площади. Затем мы считываем значения сторон с клавиатуры, умножаем их и выводим результат с заданным форматом. Пример кода:

var
  a, b, s: real;
begin
  read(a, b);
  s := a * b;
  write(s:10:3); //Выводим площадь с отведением 10 знаков и 3 знаков после запятой
end.

2) Определение количества положительных чисел

Здесь мы считываем три целых числа и подсчитываем, сколько из них положительные. Для этого используем условные операторы. Если число больше нуля, увеличиваем счетчик.

var
  a, b, c, k: integer;
begin
  read(a, b, c);
  k := 0;
  if a > 0 then inc(k);
  if b > 0 then inc(k);
  if c > 0 then inc(k);
  writeln(k); //Выводим количество положительных чисел
end.

3) Произведение цифр четырехзначного числа

Здесь мы можем использовать оператор деления и остатка от деления, чтобы получить каждую цифру числа и перемножить их. Пример:

var
  a: integer;
begin
  read(a);
  writeln((a mod 10) * (a mod 100 div 10) * (a div 100 mod 10) * (a div 1000));
end.

4) Подсчет количества цифр в числе

Для решения данной задачи мы можем использовать цикл, который будет делить число на 10, пока оно не станет равным нулю, увеличивая счетчик на каждом шаге.

var
  c, n: integer;
begin
  read(n);
  c := 0;
  repeat
    inc(c);
    n := n div 10;
  until n = 0;
  writeln(c); //Выводим количество цифр
end.

5) Сумма первых n чисел

Здесь нам нужно использовать цикл, чтобы суммировать все числа от 1 до n. Мы можем делать это с помощью переменной-сумматора.

var
  n, sum, i: integer;
begin
  read(n);
  sum := 0;
  for i := 1 to n do
    sum := sum + i;
  writeln(sum); //Выводим сумму
end.

6) Деление с остатком с помощью сложения и вычитания

Мы можем выполнить деление нацело, используя только операции сложения и вычитания. Для этого будем вычитать делитель из делимого, пока оно больше или равно делителю, и увеличивать счетчик.

var
  d, n, k: integer;
begin
  read(n, k);
  d := 0;
  while n >= k do
  begin
    d := d + 1;
    n := n - k;
  end;
  writeln('n div k = ', d);
  writeln('n mod k = ', n);
end.

7) Средний рост учащихся

В данной задаче мы будем запрашивать рост N учащихся и подсчитывать их среднее значение, используя переменную-сумматор.

var
  n, sum, i, tmp: integer;
begin
  read(n);
  sum := 0;
  for i := 1 to n do
  begin
    read(tmp);
    sum := sum + tmp;
  end;
  writeln(sum / n); //Выводим средний рост
end.

8) Заполнение массива последовательностью чисел

Здесь мы будем заполнять массив числами по заданной формуле. Начнем с 2 и будем добавлять к каждому последующему элементу некое значение.

var
  i, n, s: integer;
  a: array[1..1000] of integer;
begin
  s := 2;
  read(n);
  for i := 1 to n do
  begin
    a[i] := s;
    s := s + 2 * i + 1; //Следующее число по формуле
  end;
  for i := 1 to n do write(a[i], ' '); //Выводим массив
end.

9) Подсчет отрицательных элементов в массиве

В этой задаче мы будем запрашивать N целых чисел, помещая их в массив, и подсчитывать количество отрицательных элементов.

var
  n, i, count, tmp: integer;
begin
  read(n);
  count := 0;
  for i := 1 to n do
  begin
    read(tmp);
    if tmp < 0 then inc(count);
  end;
  writeln(count); //Выводим количество отрицательных чисел
end.

10) Вывод фигуры из звездочек

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

var
  n, i, j: integer;
begin
  read(n);
  for i := 1 to n do
  begin
    for j := 1 to i do
      write('*');
    writeln; //Переход на новую строку
  end;
end.

11) Изменение элементов массива

Здесь мы будем заполнять массив случайными числами и затем изменять его, меняя положительные числа на отрицательные, а отрицательные возводя в квадрат.

var
  a: array[1..1000] of integer;
  i, n: integer;
begin
  read(n);
  for i := 1 to n do
    a[i] := trunc(random(1000)) - 500; //Заполнение массива случайными числами
  for i := 1 to n do
    if a[i] > 0 then a[i] := a[i] * (-1)
    else if a[i] < 0 then a[i] := sqr(a[i]);
  for i := 1 to n do
    write(a[i], ' '); //Выводим измененный массив
end.

12) Подсчет делителей числа

В этой задаче мы будем проверять каждое число от 1 до n на делимость и увеличивать счетчик для каждого делителя.

var
  n, i, count: integer;
begin
  read(n);
  count := 0;
  for i := 1 to n do
    if n mod i = 0 then inc(count);
  writeln(count); //Выводим количество делителей
end.

Таким образом, мы прошли через каждую задачу, обсудили логику и написали соответствующий код на языке Паскаль. Если у вас остались вопросы по каким-то конкретным моментам, не стесняйтесь спрашивать!