Найти количество чисел из a b c d равных 0

lizamankova94 lizamankova94    2   04.10.2019 19:20    1

Ответы
Y563280 Y563280  27.08.2020 12:46
Var a,b,c,d,x: integer;
begin
x:=0;
readln(a,b,c,d);
if a=0 then inc(x);
if b=0 then inc(x);
if c=0 then inc(x);
if d=0 then inc(x);
writeln(x);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика