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

  • програма на паскале для вычесления годовой оценки срочно надо помогите побольше решений

Ответы 2

  • Program a;

    var a,b,c,d,e:integer; {a,b,c,d - оценки за 1-4 четверти, e - оценка за год}

    Begin

       writeln('Введите оценки за 1-4 четверти');

       readln(a,b,c,d);

       e:=round((a+b+c+d)/4);

       writeln('Годовая оценка = ',e);

    end.

    • Автор:

      lukafrost
    • 5 лет назад
    • 0
  • Описание прямо-таки минималистично. Буду считать, что 4 четверти, а оценка - есть среднее арифметическое, тогда:var oc,soc,n,i:integer;beginReadln(n); //узнаём кол-во "четвертей"For i:=1 to n doBeginReadln(oc);Soc:=soc+oc;End;Writeln(round(soc/n));end.Намудрил, конечно, но первое, что пришло в голову.

    • Автор:

      peep
    • 5 лет назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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