Помогите написать программу в Паскаль АБС:-D
Задан проходной балл. Запрашиваются оценки абитуриента на 4 экзаменах и сообщается о результате приема в институт.
Задан проходной балл. Запрашиваются оценки абитуриента на 4 экзаменах и сообщается о результате приема в институт.
More Questions From This User See All
Answers & Comments
program score;
var a,b,c,d,sc:integer;
res:integer;
begin
write('Input 1st exam score:');
readln(a);
write('Input 2nd exam score:');
readln(b);
write('Input 3rd exam score:');
readln(c);
write('Input 4th exam score:');
readln(d);
write('Input pass score:');
readln(sc);
if (a+b+c+d) <sc then writeln ('NOT PASSED') else writeln('PASSED');
end.