Question

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

Answer 1

Program chislo;
var a,b,c,d:integer;
begin
write('Введите a = ' );
readln(a);
if a>=0 then d:=d+a;
write('Введите b = ' );
readln(b);
if b>=0 then d:=d+b;
write('Введите c = ' );
readln(c);
if c>=0 then d:=d+c;
writeln(d);
write('Сумма положительных чисел равна ',d)
end.

Answer 2

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

program SumPositiveNumbers;
var
  num1, num2, num3, sum: real;
begin
  // Ввод трех чисел
  writeln('Введите первое число:');
  readln(num1);
  writeln('Введите второе число:');
  readln(num2);
  writeln('Введите третье число:');
  readln(num3);

// Проверка и сложение чисел
  sum := 0;
  if num1 >= 0 then
    sum := sum + num1;
  if num2 >= 0 then
    sum := sum + num2;
  if num3 >= 0 then
    sum := sum + num3;

// Вывод результата
  writeln('Сумма чисел, значения которых не отрицательны: ', sum);
end.

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