Если первым способом, то: 30\% = 3072. 3072/32=96 секунд. теперь плюс 1 и плюс 7 секунд. равно 104 секунды 1 способом.
Вторым способом: 10*1024/32=320 секунд.
Первый способ быстрее!
<span>const
D: real = 10; // число км в день
p: real = 1.12; // %
M: integer = 30;// число дней в месяце
N: integer = 25;// макс дистанция в условии задачи
var c: integer;
s, x: real;
begin
x := D;
for c := 1 to </span>M<span> do begin
s := s + x;
x := x * p;
end;
writeln('в месяц пробегает: ', s);
x := D; c := 0;
while (x < N) do begin
c := c + 1;
x := x * p;
end;
writeln('Нужно ', c, ' дней');
end.
</span>
Отмок, первое, или ком, второе непонимаю, лестница или железная дорога это, наверное дорогую. сердце.
лучше перезалей задание, с хорошим качеством
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
Pen.Width:=3;
Brush.Color:=ARGB(0,0,0,0); // прозрачная кисть
for var i:=0 to 3 do
for var j:=0 to 2 do
Rectangle(20+140*i,20+140*j,150+140*i,150+140*j); //4x3 квадрата
for var i:=0 to 2 do
for var j:=0 to 1 do
Rectangle(90+140*i,90+140*j,220+140*i,220+140*j); //3x2 квадрата
end.