Программа PascalABC задача: Даны три числа. Написать программу, для подсчета количества чисел, равных нулю.

Question

Информатика

Еремей

31 мая, 19:23

Программа PascalABC задача: Даны три числа. Написать программу, для подсчета количества чисел, равных нулю.

+3

Ответы (1)

Знаешь ответ?

Максимилиан · Answer 1

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.