Question

Найти сумму трех положительных вводимых с клавиатуры чисел. (Программа паскаль)Пример входных данных \ Пример выходных данных2 8 -3 \ 10-2 8 -3 \ 82 8 3 \ 13​

Answer 1

Var a, b, c: real;

begin

Write(‘введите числа>>’);

readln(a,b,c);

If a<0 then

If b<0 then

If c<0 then

Write(‘0’)

else

Write(c)

Else

If c<0 then

Write (b)

Else

Write(c+b)

Else if b<0 then

If c<0 then

write (a)

Else

Write(a+c)

Else

If c<0 then

Write(a+b)

Else

write(a+b+c);

End.

Answer 2

Ответ:

150/160/170

Объяснение:

Answer 3

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

pascalCopy code
program SumOfThreePositiveNumbers;
var
  num1, num2, num3, sum: Integer;
begin
  writeln('Введите три числа:');
  readln(num1, num2, num3);

  { Проверяем, что все числа положительные }
  if (num1 > 0) and (num2 > 0) and (num3 > 0) then
  begin
    { Вычисляем сумму }
    sum := num1 + num2 + num3;
    writeln('Сумма трех положительных чисел: ', sum);
  end
  else
    writeln('Ошибка: Все числа должны быть положительными.');
end.

Как использовать этот код:

1. Скопируйте код и вставьте его в среду разработки Pascal (например, Free Pascal или Turbo Pascal).
2. Запустите программу.
3. Введите три числа (по одному в каждой строке) и нажмите Enter после каждого ввода.
4. Программа выведет сумму трех положительных чисел, если все введенные числа были положительными. Если хотя бы одно число отрицательное, программа выведет сообщение об ошибке.

Пример использования:

diffCopy code
Введите три числа:
2
8
-3
Ошибка: Все числа должны быть положительными.

Введите три числа:
-2
8
3
Ошибка: Все числа должны быть положительными.

Введите три числа:
2
8
3
Сумма трех положительных чисел: 13

Пожалуйста, обратите внимание, что программа ожидает ввод чисел по одному в каждой строке. Если вы хотите изменить формат ввода, вам необходимо будет также изменить функцию readln на соответствующую формату.