А)
;
;
;
б)
;
;
;
в)
;
;
;
г)
;
;
;
д)
;
;
;
– продолжение деления в столбик на рисунке ;
;
;
;
Алфавит
........................
Решение с объяснением на фото
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;
<span>end.
Как я понял по условию, нужно посчитать стипендию у различных учеников...</span>