Question

[НА ПАСКАЛЬ] составить программы следующим программам: 1. Даны два числа. Найти среднее геометрическое их модулей. 2. Дано натуральное число. Если число (цифра, обозначающее количество единиц) единиц больше числа сотен, то вывести на экран количество тысяч, иначе количество десятков. 3. Дана последовательность целых n чисел. Найти количество неположительных чисел.

Answer 1

Ответ:

1.

var

a, b: real;

begin

Write('Введите два числа через пробел ');

Readln(a, b);

Writeln('Среднее геометрическое модулей равно ', sqrt(abs(a * b)))

end.

Объяснение:

Answer 2

Конечно, давайте составим программы на языке Pascal для каждой из задач.

Задача 1: Найти среднее геометрическое модулей двух чисел.

program AverageGeometric;
var
  a, b: real;
  result: real;
begin
  writeln('Введите два числа:');
  readln(a, b);

if (a <> 0) and (b <> 0) then
  begin
    result := sqrt(abs(a) * abs(b));
    writeln('Среднее геометрическое модулей чисел: ', result:0:2);
  end
  else
    writeln('Для вычисления среднего геометрического оба числа должны быть неравны нулю.');

readln;
end.

Задача 2: Вывести количество тысяч или десятков.

program CountThousandsOrTens;
var
  number, units, tens, thousands: integer;
begin
  writeln('Введите натуральное число:');
  readln(number);

units := number mod 10;
  tens := (number div 10) mod 10;
  thousands := number div 1000;

if units > hundreds then
    writeln('Количество тысяч: ', thousands)
  else
    writeln('Количество десятков: ', tens);

readln;
end.

Задача 3: Найти количество неположительных чисел в последовательности.

program CountNonPositiveNumbers;
var
  n, num, count: integer;
begin
  writeln('Введите количество чисел в последовательности:');
  readln(n);

count := 0;

writeln('Введите последовательность чисел:');
  for i := 1 to n do
  begin
    readln(num);
    if num <= 0 then
      count := count + 1;
  end;

writeln('Количество неположительных чисел: ', count);

readln;
end.

Примечание: 1. Предполагается, что ввод пользователя будет корректным. 2. Программы могут быть доработаны в зависимости от конкретных требований или ограничений задачи.