Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Если средний бал учащегося больше или равен 4, то ему выплачивается стипендия с 50% надбавкой

Ответ оставил Гость

Program b;
var
bal:integer;
stip:real;
begin
write(Введите средний балл учащегося: );
write(Введите стандартную стипендию: );
readln(bal,stip);
if bal>=4 then stip:=stip+(stip/2) else
stip:=stip;
writeln(Стипендия учащегося: ,stip);
readln;
end.

Как я понял по условию, нужно посчитать стипендию у различных учеников...