Question

В компьютер вводятся три числа. Проверить принадлежат ли эти числа диапазону (-7;7). Если условие выполняется, то найти сумму введенных чисел, иначе вывести на экран соответствующее сообщение. турбо Паскаль

Answer 1

Ответ:

program Chernovik;

var a,b,c: integer;

begin

read(a,b,c);

if ((a>-7) and (a<7)) and ((b>-7) and (b<7)) and ((c>-7) and (c<7)) then write (a+b+c)

else write (((a>-7) and (a<7)) and ((b>-7) and (b<7)) and ((c>-7) and (c<7)))

end.

Объяснение:

Вводим числа

Проверяем условие, если условие истинно выводим сумму, иначе выводим, что условие ложное

Answer 2

Вот пример программы на Turbo Pascal, которая выполняет задачу проверки трех чисел на принадлежность диапазону (-7; 7) и вычисляет их сумму, если условие выполняется:

pascalCopy code
program CheckRangeAndSum;
var
  num1, num2, num3, sum: integer;
begin
  writeln('Введите три числа:');
  readln(num1, num2, num3);
  
  if (num1 > -7) and (num1 < 7) and
     (num2 > -7) and (num2 < 7) and
     (num3 > -7) and (num3 < 7) then
  begin
    sum := num1 + num2 + num3;
    writeln('Сумма введенных чисел: ', sum);
  end
  else
    writeln('Одно или более чисел не принадлежат диапазону (-7;7).');
  
  readln;
end.

Программа сначала запрашивает три числа у пользователя, а затем проверяет каждое из них на принадлежность диапазону (-7; 7). Если все три числа находятся в допустимом диапазоне, программа вычисляет и выводит их сумму. В противном случае она выдает сообщение о том, что одно или более чисел не принадлежат заданному диапазону.