Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Программа 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.