ПОМОГИТЕ ПОЖАЛУЙСТА В PASCAL ТОК ПОСЛЕДНИЕ ДВЕ ЗАДАЧИ ПРОШУУУУУ
ПОМОГИТЕ ПОЖАЛУЙСТА В PASCAL ТОК ПОСЛЕДНИЕ ДВЕ ЗАДАЧИ ПРОШУУУУУ
Гость
Ответ(ы) на вопрос:
Гостьvar i,n:integer;
sum: real;
begin
readln(N);
sum := 10;
for i:=1 to n do
sum := sum * 1.1;
writeln(sum);
end.
Не нашли ответ?
Похожие вопросы