Программа PascalABC задача:Даны три числа.Написать программу,для подсчета количества чисел,равных нулю.
Ответы
Ответ дал:
6
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.
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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад