с клавиатуры вводится средний балл сессии студента - S. Определить какую стипендию ему начислить: повышенную (s>=4,5), обычную (4<=s<4,5), отказать в ней (s<4).
var S:real; BEGIN write('Введите средний балл студента S='); readln(S); writeln; if S>=4.5 then writeln('Стипендия студента - повышенная!') else if S<4 then writeln('Стипендия студента - нулевая:(') else writeln('Стипендия студента - обыкновенная'); readln;
Answers & Comments
var
S:real;
BEGIN
write('Введите средний балл студента S=');
readln(S);
writeln;
if S>=4.5 then writeln('Стипендия студента - повышенная!') else
if S<4 then writeln('Стипендия студента - нулевая:(') else
writeln('Стипендия студента - обыкновенная');
readln;
end.
прошу.