Ввести три числа с клавиатуры. Найти и напечатать количество чисел равных нулю Помогите, пожалуйста
Answers & Comments
Burxon21
Var a,b,c,i:integer; begin i:=0; Write('1-число='); Readln(a); Write('2-число='); Readln(b); Write('3-число='); Readln(c); if a=0 then i:=i+1; if b=0 then i:=i+1; if c=0 then i:=i+1; Writeln(i,' чисел равных нулю'); end.
Answers & Comments
begin
i:=0;
Write('1-число='); Readln(a);
Write('2-число='); Readln(b);
Write('3-число='); Readln(c);
if a=0 then i:=i+1;
if b=0 then i:=i+1;
if c=0 then i:=i+1;
Writeln(i,' чисел равных нулю');
end.