Написать задачу на языке PascalABC
Уличный рекламный щит прикреплён к опоре при помощи трёх креплений. Первое крепление может выдерживать ветер, скорость которого не превосходит А м/с, второе крепление- В м/с, третье- С м/с. Сам щит будет надёжно закреплен, если как минимум два крепления из трёх выдерживают ветер данной скорости. Определите максимальную скорость ветра, которую выдержит данный щит.
Программа получает на вход три целых положительных числа А,В,С, не превосходящие 2•10(в 9 степени),- допустимые скорости ветра, которые выдерживают три крепления щита. Программа должна вывести одно число-максимальную скорость ветра, которую выдержит щит.
Пример входных и выходных данных:
Ввод: 28 15 10
Вывод: 15
Написать задачу на языке PascalABC
Уличный рекламный щит прикреплён к опоре при помощи трёх креплений. Первое крепление может выдерживать ветер, скорость которого не превосходит А м/с, второе крепление- В м/с, третье- С м/с. Сам щит будет надёжно закреплен, если как минимум два крепления из трёх выдерживают ветер данной скорости. Определите максимальную скорость ветра, которую выдержит данный щит.
Программа получает на вход три целых положительных числа А,В,С, не превосходящие 2•10(в 9 степени),- допустимые скорости ветра, которые выдерживают три крепления щита. Программа должна вывести одно число-максимальную скорость ветра, которую выдержит щит.
Пример входных и выходных данных:
Ввод: 28 15 10
Вывод: 15
Уличный рекламный щит прикреплён к опоре при помощи трёх креплений. Первое крепление может выдерживать ветер, скорость которого не превосходит А м/с, второе крепление- В м/с, третье- С м/с. Сам щит будет надёжно закреплен, если как минимум два крепления из трёх выдерживают ветер данной скорости. Определите максимальную скорость ветра, которую выдержит данный щит.
Программа получает на вход три целых положительных числа А,В,С, не превосходящие 2•10(в 9 степени),- допустимые скорости ветра, которые выдерживают три крепления щита. Программа должна вывести одно число-максимальную скорость ветра, которую выдержит щит.
Пример входных и выходных данных:
Ввод: 28 15 10
Вывод: 15
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Var
A, B, C, maxWindSpeed: Integer;
Begin
Write('Enter the maximum wind speed that the first mount can withstand: ');
Readln(A);
Write('Enter the maximum wind speed that the second mount can withstand: ');
Readln(B);
Write('Enter the maximum wind speed that the third mount can withstand: ');
Readln(C);
// Determining the maximum wind speed that the board can withstand
If (A >= B) And (A >= C) Then
maxWindSpeed := Min(B, C)
Else If (B >= A) And (B >= C) Then
maxWindSpeed := Min(A, C)
Else
maxWindSpeed := Min(A, B);
Writeln('The maximum wind speed the advertisement board can withstand is: ', maxWindSpeed, ' m/s');
End.
Автор: Natali