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

Ответы 2

  • 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.

  • 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.

    • Автор:

      patience
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years