Напишите программу, в которой осуществляется ввод целых чисел ( ввод осуществляется до тех пор, пока не будет введён ноль) и определение максимального ( наибольшего) из введённых чисел. используйте оператор repeat.
Предполагается, что будет введено минимум одно значение. var max,a : integer; begin readln(a); max := a; repeat readln(a); if (a > max) and (a <> 0) then max := a; until a = 0; writeln(max); readln; end. P.S. Если понравилось решение не забудь отметить как лучшше.
Добрый день! Рад, что ты обратился ко мне с вопросом. Давай разберемся вместе!
Мы имеем таблицу с протяженностью дорог между населенными пунктами A, B, C, D, E. Давай посмотрим, что она нам говорит.
Для начала, давай определим насколько далеко друг от друга находятся населенные пункты. Для этого посмотрим на первую строку таблицы и запишем значения.
A -> B: 5
A -> C: 2
A -> D: 4
A -> E: 7
Теперь давай определимся, насколько далеко находятся населенные пункты от населенного пункта A.
B -> A: 5
B -> C: 1
B -> D: 7
B -> E: 3
C -> A: 2
C -> B: 1
C -> D: 6
C -> E: 3
D -> A: 4
D -> B: 7
D -> C: 6
D -> E: 2
E -> A: 7
E -> B: 3
E -> C: 3
E -> D: 2
Теперь у нас есть все данные, чтобы ответить на вопросы. Если у тебя есть конкретные вопросы по таблице, пожалуйста, называй их.
Например, один из вопросов может быть таким: "Какая самая короткая дорога между населенными пунктами?"
Чтобы найти самую короткую дорогу, нам нужно сравнить значения из таблицы и найти минимальное значение. Давай найдем минимальную протяженность дороги между каждой парой населенных пунктов.
A -> B: 5
A -> C: 2
A -> D: 4
A -> E: 7
B -> A: 5
B -> C: 1
B -> D: 7
B -> E: 3
C -> A: 2
C -> B: 1
C -> D: 6
C -> E: 3
D -> A: 4
D -> B: 7
D -> C: 6
D -> E: 2
E -> A: 7
E -> B: 3
E -> C: 3
E -> D: 2
Самыми короткими дорогами будут:
- Между населенными пунктами B и C: 1 (B -> C: 1)
- Между населенными пунктами C и B: 1 (C -> B: 1)
- Между населенными пунктами D и E: 2 (D -> E: 2)
- Между населенными пунктами E и D: 2 (E -> D: 2)
Надеюсь, теперь тебе стало понятно, как использовать таблицу для нахождения самых коротких дорог между населенными пунктами. Если у тебя еще остались вопросы, не стесняйся задавать!
Чтобы найти среднее геометрическое двух чисел a и b, нам нужно умножить эти числа между собой и взять квадратный корень полученного произведения.
Шаг 1: Умножение чисел a и b
Для начала нужно перемножить числа a и b. Для примера, пусть a = 5 и b = 9. Тогда произведение a*b будет равно 45.
a * b = 5 * 9 = 45
Шаг 2: Извлечение квадратного корня
После того, как мы получили произведение чисел, нужно извлечь квадратный корень из этого результата. В нашем примере, извлечение квадратного корня из 45 даст нам значение около 6.708.
sqrt(45) ≈ 6.708
Итак, среднее геометрическое чисел 5 и 9 будет около 6.708.
Мы решили задачу. Если у вас есть дополнительные вопросы, пожалуйста, не стесняйтесь задавать!
max,a : integer;
begin
readln(a);
max := a;
repeat
readln(a);
if (a > max) and (a <> 0) then
max := a;
until a = 0;
writeln(max);
readln;
end. P.S. Если понравилось решение не забудь отметить как лучшше.