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.
Если в первый день машинист проехал 10 км, то во второй день он проехал на 5 км больше
сколько км проехал машинист за два дня?
10 + 5 = 15 (второй день)
15 + 10 = 25 (проехал за два дн
модель
на одну букву в леао
1 1 4
2 вообще-то все отсносятся к заразервированным
3 3
4 1
Ты издеваешься? Думаешь тебе за 5 баллов напишут программу???