1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var current, past, sum: real;
i, n: integer;
begin
current : = 10;
for i : = 1 to 10 do begin
writeln(i, ' ', current);
past : = current;
current : = current * 1.1;
end;
current : = 10; sum : = 0;
write('n = ');
read(n);
for i : = 1 to n do begin
sum : = sum + current;
past : = current;
current : = current * 1.1;
end;
writeln('за ', n, ' дней: ', sum);
end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var current, past, sum: real;
i, n: integer;
begin
current : = 10;
for i : = 1 to 10 do begin
writeln(i, ' ', current);
past : = current;
current : = current * 1.1;
end;
current : = 10; sum : = 0;
write('n = ');
read(n);
for i : = 1 to n do begin
sum : = sum + current;
past : = current;
current : = current * 1.1;
end;
writeln('за ', n, ' дней: ', sum);
end.
1) Начало
2) Ввод скорости v1 в км/ч и времени t1 в часах для 1-го велосипедиста
3) t2 = t1 - 1/6, потому что 10 мин = 1/6 часа.
4) v2 = v1 * t1 / t2
5) Вывод скорости v2
6) Конец
Программа
Sub Velo
Dim v1 As Double, v2 As Double, t1 As Double, t2 As Double
Cls
Print "Введите скорость 1 велосипедиста";
Input v1
Print "Введите время движения 1 велосипедиста";
Input t1
t2 = t1 - 1/6
v2 = v1 * t1 / t2
Print "Скорость 2 велосипедиста " & v2
End