4 да я знаю я это самастаятельную прохадил
Var
A,S:real;
i:integer;
Begin
A:=5;
S:=A;
For i:= 1 to 6 do
Begin
A:=A*1.1;
S:=S+A;
End;
WriteLn(A:0:3,' ',S:0:3)
End.
А) пошаговая запись последовательности действий в алгоритме.
Это точно)))
1) Труп
2) Конопля
3) Маки
4) Гладиолусы
5) Пионы
6) Толчок рядом с пионами
1 КБит = 128 Байт
5 КБит = 640 Байт