Question

Все через Паскаль, умоляю

Answer 1

===== PascalABC.NET =====

-1-

begin

var x := ReadReal('Введите вклад?');

var n := ReadInteger('Введите срок?');

for var i := 1 to n do

begin

x *= 1.03;

Writeln(i, ' год - ', x:0:2, ' руб')

end

end.

-2-

begin

for var i := 1 to 10 do

Writeln('5*', i, ' = ', 5 * i)

end.

-3-

begin

var s := ReadSeqReal('Введите 5 любых чисел:', 5).Sum;

Println('Их сумма равна', s);

end.