Задать вопрос Регистрация
Помочь другим

  • Для трёх заданных чисел a,b,c найти среднее арифметическое положительных из них. Если таковых нет, сделать об этом сообщение.

Ответы 2

  • uses crt;var a,b,c,cc,s:integer;begincc:=0;readln(a);if a>0 then begin s:=a; inc(cc); end;readln(b);if b>0 then begin s:=s+b; inc(cc); end;readln(c);if c>0 then begin s:=s+c; inc(cc); end;

    writeln(s/cc);readln;

    end.

  • var a,b,c,s,k:integer;beginreadln(a,b,c);if a>0 then begin k:=k+1; s:=s+a; end;if b>0 then begin k:=k+1; s:=s+b; end;if c>0 then begin k:=k+1; s:=s+c; end;if k=0 then writeln('нет положительных чисел') else writeln(s/k);end.

    • Автор:

      meyers
    • 6 лет назад
    • 0

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

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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