• Пожалуйста!
    В данной последовательности чисел, которая задается с клавиатуры, найти количество положительных

Ответы 1

  • var str : string;i,c,a,count : integer;begini:=1;count :=0;writeln('Вводите числа, как только введете все числа нажмите любую букву');while i=1 do beginreadln(str);val(str,a,c);if ( a>0) then count := count +1;if(c<>0) then i:=0;end;writeln('Кол-во положительных чисел = ', count);end.ну как то так
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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