Question

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

Answer 1

var a,b,c,d: integer;

begin

writeln('Введите 4 числа');

readln(a,b,c,d);

if (a=0)or(b=0)or(c=0)or(d=0)

then writeln('Среди введенных чисел есть 0')

else writeln('0 нет');

end.

Пример:

Введите 4 числа

5 0 3 7

Среди введенных чисел есть 0