program raf105;
var a,sum: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(a);
if (a mod 8 = 0) and (a mod 10 = 6)
then sum+= a;
until a = 0;
writeln('Сумма: ',sum);
end.
<h3><u>PascalABC 3.4.2</u></h3>
var
s: real;
i, n: integer;
begin
i := 3;
readln(n);
while (i <= n) do
begin
s := s + (i - 1) / i;
inc(i);
end;
writeln(s);
end.
При беге S=vt, ходьбе S=v1*t1, S одинаково, t1=vt/v1=3*t -ответ