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

Ответы 1

  • var a,b,c,col:integer;

    begin

    col:=0; 

     readln(a,b,c);

      if (a>0) then col:=col+1

     else if (b>0) then col:=col+1

     else if (c>0) then col:=col+1;

    writeln('Положительных чисел: ',col); 

    readln;

    end. 

  • Добавить свой ответ

Войти через Google

или

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

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

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