1) увеличить число x в 2 раза, если оно отрицательное, во всех остальных случаях...

Question

1) увеличить число x в 2 раза, если оно отрицательное, во всех остальных случаях уменьшить его на 5

2) В сберкассу на депозит положили 75000 тенге. Какой станет сумма вклада через 10 лет при 11% годовой ставке.

Answer 1

var x:integer;

begin

if x<0 then x:=x*2 else</p>

x:=x-2;

end.

 

 

var i:integer; x:real;
begin
x:=75000;
for i:=1 to 10 do
x:=x*1.11;
write(x)
end.