Var
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');Read(A);
Write('B = ');Read(B);
For A:=A to B do
P:=P*A;
WriteLn(P)
End.
Как-то так... )))
Смотри картинку...
Формула для надбавки:
=ЕСЛИ(B2<=15;0;ЕСЛИ(B2>25;A2*0,3;A2*0,15))
=ЕСЛИ(стаж<=15;0;ЕСЛИ(стаж>25;оклад*0,3;оклад*0,15))
Формула для всего:
=A2+C2
=оклад+надбавка
var x,F: real;
i: integer; //вводим переменную-счетчик для цикла for
begin
for i:=1 to 3 do // Цикл будет выполнен 3-1+1=3 раза
begin //начало цикла
Write('введите значение x= ');
readln(x);
if x>3 then F:=-3*x+9 else F:=sqr(x)*x/(sqr(x)+8);
Writeln('F(',x:5:3,')= ', F:5:3);
end; //конец цикла
end.
<span> 0,0625 Мб =</span><span>65 536 байт
</span>