Программа PascalABC задача:Даны три числа.Написать программу,для подсчета количества чисел,равных нулю.
Программа PascalABC задача:Даны три числа.Написать программу,для подсчета количества чисел,равных нулю.
Гость
Ответ(ы) на вопрос:
ГостьProgram zadacha;
Var a, b, c, n: real;
begin ;
Writeln ('введите значения a, b, c');
Readln (a, b, c);
n:=0;
if a=0 then n:=n+1;
if b=0 then n:=n+1;
if c=0 then n:=n+1;
Writeln ('чисел равных нулю ', n);
end.
Не нашли ответ?
Похожие вопросы