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>
Начало
Вводим a=0
далее выполняется действие:
x=a*2=0*2=0
условие:
0<10 да, далее выполняется действие:
x=x-5=0-5=-5
вывод х=-5;
конец.
Также и с остальными:
начало
ввод а=2
х=2*2=4
4<10
х=4-5=-1
вывод х=-1;
Конец.
Начало
ввод а=4
х=4*2=8
8<10
х=8-5=3
вывод х=3
конец.
Начало
ввод а=6
х=6*2=12
12>10
х=12+6=18
вывод х=18
конец.
Начало
ввод а=8
х=8*2=16
16>10
х=16+6=22
вывод х=22
Конец.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b,c):=ReadReal3();
write('S=',((a+b)/2)*sqrt(c*c-((a-b)*(a-b)/4)));
end.
1. Вар сам напиши.
begin
readln(a,b);
For i:=10 to 99 do
if (i mod 10 + i div 10=a) and (i mod b=0) then writeln(i);
end.
2. Вар сам напиши,
begin
readln(a,b);
for i:=a to b do
if a mod 5 then writeln(i);
end.