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

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

1

Ответы и объяснения

2013-04-26T17:53:14+00:00

var x:integer;

begin

if x<0 then x:=x*2 else

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.