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

Question

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

Гость

Ответ(ы) на вопрос:

Гость

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.

Accepted Answer

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.