Предмет: Информатика, автор: kojnakkp5sp6k

Напишите пожалуйста вторую программу в паскале(справа). Даю 100 баллов. Пожалуйста!!!!!!!!!!

Приложения:

Ответы

Автор ответа: SoulThief
2

Ответ:Pascal

1 program lab;

2 var

3 s:real;

4 i,n:integer;

5 begin

6 writeln('введите кол-во лет и сумму');

7 readln(n,s);

8 for i:=1 to n do

9 s:=s+s*0.03;

10 writeln(s);

11 end.

Объяснение: примерно так.


kojnakkp5sp6k: Спасибо огромное!
Kilekanisic: Тогда программу можно записать так:
Kilekanisic: begin
var (S,N):=ReadReal2('Введите сумму вклада и количество лет');
Write('Сумма станет ',S*1.03**n);
end.
Похожие вопросы