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

Требуется использовать язык Паскаль
Даны три целых числа A, B, C. Значения чисел вводятся с клавиатуры. Определить количество нулей среди данных чисел. Результат вывести на экран.

Ответ оставил Гость

Если строго по тексту задачи то получится так:

var a,b,c,n:integer;
begin
  readln(a,b,c);
  if a=0 then n:=n+1;
  if b=0 then n:=n+1;
  if c=0 then n:=n+1;
  writeln(n);
end.