15 х 5 = 75(км)
Ответ: 75км проедет велосипедист за 5 часов.
const N = 20;
var a: array [1..N] of integer;
i, k, sum, s: integer;
begin
for i := 1 to N do
begin
a[i] := random(11); //заполняем
sum := sum + a[i]; //Сумма всех эл-тов
end;
for i := 1 to N do
write(a[i], ' '); //Выводим
writeln; //переход на новую строку
writeln(sum);
readln(k);
for i := 1 to N do
if ((a[i] mod k) = 0) then
s := s + a[i]; //сумма эл-тов кратных k
writeln(s);
end.
В приложениях находятся два варианта решения.
1) Перебираем все числа от 1 до x и проверяем остаток от деления x на очередное число. Простой и понятный алгоритм.
2) Перебираем все числа от 1 до корня из x и проверяем остаток от деления. Если x делится на такое число d без остатка, мы выводим d и x/d. Работает быстрее, чем (1).
Var C: integer;
h, m: string;
begin
readln(C);
C := C * 2;
if (C div 60 < 10) then h := '0' + inttostr(C div 60);
if (C mod 60 < 10) then m := '0' + inttostr(C mod 60);
writeln(h, ':', m);
<span>end.
Сам такое недавно делал, только на КуМИР'е)</span>