729 728 364 182 91 90 45 44 22 21 20 19 18 17
1 1 1 1 1 2 1 2 1 2 2 2 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.
Var
i,y,x:integer;
begin
writeln (введите x );
y:=20;
if x:=5 then y:=y*x;
writeln (`y =' ,y);
<span>end.</span>