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

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

Question

Информатика

Федотия

20 июня, 15:25

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

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

+4

Ответы (1)

Знаете ответ?

Мироша · Answer 1

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.