составить программу к задаче: задан проходной балл b запросить оценки абитуриента по трем экзаменам математике m сочинению s физике f и сообщить о результатах приема в вуз

1

Ответы и объяснения

2013-05-17T16:17:24+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.


Program Mila37;
var b, m, s, f:integer;
  begin
  writeln('*******************************');
  writeln('*      ПРИЁМНАЯ КОМИССИЯ      *');
  writeln('*******************************');
  writeln;
  write('введите проходной балл');
  readln(b);
  write('введите оценку по математике ');
  readln(m);
  write('введите оценку за сочинение ');
  readln(s);
  write('введите оценку по физике ');
  readln(f);
  if m+s+f<b then
    begin
      writeln('К сожалению, Вы не поступили...');
      writeln('Попробуйте снова через год.');
    end
    else
      begin
        writeln('Поздравляем!!! Вы поступили ');
        writeln('  и зачаслены на I-й курс');
      end;
end.