Question

ПОМОГИТЕ ПОЖАЛУЙСТА ! ДАЮ 40 БАЛЛОВ ЗАДАЧА ПО ИНФОРМАТИКЕ в программе паскаль 9 класс с клавиатуры водятся 4 числа выяснить, если среди них числ0 равное 0

Answer 1

program EstiLiNoli;

var a,b,c,d:integer;

begin

 writeln('vvedi 4 cisla:');

 write('a= '); read(a);

 write('b= '); read(b);

 write('c= '); read(c);

 write('d= '); read(d);

 if a*b*c*d=0 then writeln(' esti noli...')

 else writeln(' net sredi nih noli...');

end.

Answer 2

Конечно, я помогу вам решить задачу. Давайте напишем программу на языке Паскаль, которая будет считывать четыре числа с клавиатуры и определять, есть ли среди них число, равное 0. Если такое число есть, программа должна вывести сообщение об этом.

Вот программа на Паскале для решения задачи:

pascalCopy code
program FindZero;

var
  num1, num2, num3, num4: Integer;

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

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

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

Скопируйте этот код в среду разработки Pascal и запустите программу для проверки. Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать.