Question

С клавиатуры водятся 4 числа выяснить, если среди них число равное 0 в паскале пожалуйста

Answer 1

//PascalABC  (версия 3.4.2, сборка 1889 от 04.12.2018)

var

a, b, c, d, Mul : real;

begin

Write('Введите четыре числа:');

ReadLn(a, b, c, d);

Mul := a * b * c * d;

If Mul = 0 then

 WriteLn('Среди чисел вы ввели нуль')

Else

 Writeln('Среди чисел нет нуля');

end.

Answer 2

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

pascalCopy code
program CheckZero;
var
  num1, num2, num3, num4: integer;

begin
  writeln('Введите 4 числа:');
  readln(num1, num2, num3, num4);

  if (num1 = 0) or (num2 = 0) or (num3 = 0) or (num4 = 0) then
    writeln('Среди введенных чисел есть число 0.')
  else
    writeln('Среди введенных чисел нет числа 0.');

  readln;
end.

В этом коде программа запрашивает четыре числа с клавиатуры и затем проверяет, есть ли среди них хотя бы одно число, равное нулю. Если такое число есть, программа выведет сообщение "Среди введенных чисел есть число 0.", в противном случае - "Среди введенных чисел нет числа 0.".

Примечание: Для компиляции и запуска этого кода вам понадобится среда программирования Pascal, например, Free Pascal.