Основная часть экрана - рабочий стол
//Pascal ABC.NET v3.1 сборка 1172
//3
Var
d:real;
begin
readln(d);
writeln(3.14*d);
end.
//4
Var
a:real;
begin
readln(a);
writeln('V=',a*a*a);
writeln('S=',6*sqr(a));
end.
//5
Var
a:real;
begin
readln(a);
writeln(a/100,' м');
writeln(a/100000,' км');
end.
Var X = [1,2,3,4,5,6,7,8];
var Y = [1,2,2,3,3,4,4,4];
var A = [];
function f(i) {
var b;
for (var i2 = 0,a = 0; i2 < Y.length; i2++) {
if (Y[i2] == X[i]) {
a++;
}
if (a > 2) {
b=false;
break;
}
if (i2 == (Y.length - 1) && a == 2) {
b=true;
break;
}
b=false;
}
return b;
}
for (var i = 0,i2=0; i < X.length; i++) {
if (f(i)){
A[i2]= X[i];
i2++;
}
}
for (var i = 0; i < A.length; i++) {
alert(A[i]);
}
Скорее всего считают так:
Путешественник едет напрямую а с пересадками
Например:
Моховое - Грибное
Грибное - Лесное
только так выйдет 11:25
Во фрагменте ошибки - нет ';'
А:=0 ; Х:=0;
for i:=1 to 10 do
begin
A:=А+3;
A:=Х+А;
end;
А ответ с учетом исправлений -в цикле X не изменяется, значит
X=0