Question

Помогите пожалуйста составить программу на языке Pascal! Даны три числа, написать программу, подсчитывающую количество чисел, равных нулю.

Answer 1

var 

  num, count:integer;

 

begin

    count:=0;

    for i:=1 to 3 do

    begin

        readln(num);

       if num=0 then count:=count+1

    end;

    writeln(count)

end.

Answer 2

Program Zadacha;

uses CRT;

var

a,b,c,kol:integer;

begin

Writeln('a=,b=,c=');

read(a,b,c);

kol:=0;

If a=0 then kol:=kol+1;

If b=0 then kol:=kol+1;

If c=0 then kol:=kol+1;

Writeln('Kolichestvo chisel ravnih nulu =',kol);

end.