Question

Паскаль. Найти сумму корней квадратных из всех нечетных двузначных чисел

Answer 1

Var
S:real;
A:integer;
Begin
S:=0;
For A:= 11 to 99 do
    if A mod 2 <> 0 then S:=S+sqrt(A);
WriteLn('S = ',S)
End.

Answer 2

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

Давайте разобьем задачу на несколько шагов:

1. Создадим переменную `sum` для хранения суммы корней квадратных. 2. Используем цикл, чтобы перебрать все нечетные двузначные числа от 10 до 99. 3. Внутри цикла проверяем, является ли текущее число нечетным. Если да, то выполняем следующие шаги: - Находим квадратный корень из текущего числа с помощью функции `sqrt` (которая может быть доступна в стандартной библиотеке Паскаля или может потребоваться подключение дополнительного модуля). - Добавляем найденный корень к переменной `sum`. 4. После завершения цикла выводим значение переменной `sum`, которое будет являться искомой суммой корней квадратных.

Вот пример кода на языке Паскаль, решающий эту задачу:

program SumOfSquareRoots;

uses
  Math;

var
  sum: Double;
  i: Integer;

begin
  sum := 0;
  
  for i := 10 to 99 do
  begin
    if (i mod 2 <> 0) then
    begin
      sum := sum + Sqrt(i);
    end;
  end;
  
  writeln('Сумма корней квадратных из всех нечетных двузначных чисел: ', sum);
end.

Этот код будет перебирать все нечетные двузначные числа от 10 до 99, находить квадратный корень из каждого числа и добавлять его к переменной `sum`. В конце программы будет выведено значение `sum`, которое и будет являться искомой суммой корней квадратных.

Примечание: Обратите внимание, что в примере использована функция `Sqrt` из модуля `Math`, которая позволяет находить квадратные корни. Если ваша среда разработки Паскаль не поддерживает этот модуль, вам может потребоваться найти или написать свою собственную функцию для вычисления квадратного корня.