Інсти Обозначим пункты Бишкек - В; Суусамырская Разнилка - А; Жалал-Абад - J; Талас - Т; Опт - О; Каракол - K; Балыкчы - L; Нары - N; Баткені - Е. Расстояния между ними (по хорошим дорогам, и километрах) следующие: AT 12, АЛ 377; ЛВ 19:3; Jo 10); OE 240; LB 179; LK 216; LN 180, Разрешепная скорость автомашины - 650 км/час. Сейчас актомантины находится в нескольких пунктах. Найдите минимально неузможнохт время (в минутах), чтобы им собраться в одном месте. Если отит - пе целом: число, то округлить его вікух До слого числа. Формат входных данных В первой строке - количество 2 , N 4, 5 машин и пункти, где они находятся. Во второй строке разделенные единичными прибилами N px личных гигланных латинских букв. Формат выходных данных Натуральное число, ответ на задачу в минутах. Система оценки Задаа оценивается в В лучае 52 теста, каждый тест кіхэме, түстен к примерон кинлеrси и Примеры стандартный ввод талдарды и выход 2 т 10 638 3 NTE
1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу. 2. Немного изменим ваш код и получим искомое значение x Искомое число х = 16293
var x, y, a, b, k: integer;
begin k:=10000; repeat x:=k; a := 0; b := 0; y := 1; while x > 0 do begin if (x mod 10) mod 2 = 0 then a := a * 10 + x mod 10 else begin y := y * 10; b := b * 10 + x mod 10 end; x := x div 10 end; a := a * y + b; k := k + 1; until a = 26391; writeln(a:8, k-1:8); end.
365:11≈33(34) берём "34", чтобы перехлестнуть 365.
Так как 11-ый член является замыкающим (перехлёстывающим 365), тогда смотрим по ближайшим:
34*10=340 (340+34=374) - подходит, но это не максимум!
365 mod 10= 36, а это значит, что последующий член будет больше 365, а именно 395.
В задании сказано, что d должно быть максимальным, а "34" - это допустимое, но не максимально число, удовлетворяющее условию, даже минимальное (по результату).
Проверка:
34*11=374, значит, когда на экране выведется s:=340, n:=50, то, зайдя по следующему циклу, получится, что s:= 374, n:=55. На следующий цикл программа не пойдёт.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293
var
x, y, a, b, k: integer;
begin
k:=10000;
repeat
x:=k;
a := 0; b := 0; y := 1;
while x > 0 do
begin
if (x mod 10) mod 2 = 0
then
a := a * 10 + x mod 10
else begin
y := y * 10;
b := b * 10 + x mod 10
end;
x := x div 10
end;
a := a * y + b;
k := k + 1;
until a = 26391;
writeln(a:8, k-1:8);
end.
55:5=11
365:11≈33(34) берём "34", чтобы перехлестнуть 365.
Так как 11-ый член является замыкающим (перехлёстывающим 365), тогда смотрим по ближайшим:
34*10=340 (340+34=374) - подходит, но это не максимум!
365 mod 10= 36, а это значит, что последующий член будет больше 365, а именно 395.
В задании сказано, что d должно быть максимальным, а "34" - это допустимое, но не максимально число, удовлетворяющее условию, даже минимальное (по результату).
Проверка:
34*11=374, значит, когда на экране выведется s:=340, n:=50, то, зайдя по следующему циклу, получится, что s:= 374, n:=55. На следующий цикл программа не пойдёт.
ответ: d=34.