В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Nika75556
Nika75556
03.12.2022 00:55 •  Информатика

Ограничение времени 2 секунды Ограничение памяти 256Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Иван Царевич попал в сад Кащея, где росли молодильные яблоки и ананасы бессмертия. У Ивана с собой была только одна волшебная сумка. Если сумку заполнять полностью яблоками, то в нее поместиться M кг яблок, а если только ананасами, то в нее поместиться N кг ананасов. Яблоки и ананасы можно загружать в сумку вместе в любой пропорции. Килограмм яблок стоит на базаре A рублей, килограмм ананасов – B рублей. Иван собирается лететь на рынок на ковре-самолете, который может унести не более D кг груза, не считая самого Ивана. Какую максимальную сумму (в рублях) может получить Иван Царевич за привезенные фрукты?

Формат ввода
Входные данные содержат на одной строке пять целых чисел через пробел: A, B, M, N, D. Все числа в диапазоне от 0 до 1000.

Формат вывода
Выведите одно число - максимальную сумму в рублях, которую может получить Иван за привезенные на базар фрукты, если продаст их полностью. ответ следует выводить с точностью не менее трех десятичных знаков после запятой

Показать ответ
Ответ:
Nasteahdhdjek
Nasteahdhdjek
28.04.2020 13:50
Program Ulitka;
Var SunnyDay: Array [1..30] Of Boolean;
a, b, c, i: Integer;
Begin
WriteLn('a = ');
ReadLn(a);
WriteLn('b = ');
ReadLn(b);
b := b * 100;
Randomize;
For i := 1 To 30 Do
Begin      
If Random(2) = 1 Then
SunnyDay[i] := True
Else
SunnyDay[i] := False;
End;
For i := 1 To 30 Do
Begin  
If SunnyDay[i] = True
ThenBegin    
a := a + 2;    
If a > b Then    
a := b;  
End  
Else  
Begin   
a := a - 10;    
If a < 0 Then    
a := 0;  End;  
End; WriteLn('Дни месяца были таковы:');
For i := 1 To 30 Do
Begin
If SunnyDay[i] = True Then
WriteLn(i, '. Солнечный')
Else
WriteLn(i, '. Пасмурный')
End;
WriteLn('К концу 30 дня местоположение улитки равно ', a, ' см над землей');
End.
0,0(0 оценок)
Ответ:
1mizik1
1mizik1
01.11.2020 22:46
1.)для pubg lite требуется directx 11

2.)требуется dx11 версии 10.0

3.) вы получите эту ошибку, если ваша графическая карта не поддерживает direct x 11.

4.) критическая ошибка (assertion failed)

эта проблема может возникнуть, если ваша графическая карта перегревается, например, из-за большого количества пыли внутри корпуса пк. если вы столкнулись с этой проблемой, мы предлагаем вам почистить корпус, а также удалить графический драйвер и установить его заново.

5.) проблема с nvidia geforce

вы получите эту ошибку, если драйеры вашей видеокарты карты сильно устарели. если они не обновлены производителем, возможно, вы не сможете обновить драйвер до требуемой версии.

6.) launcher.exe - bad image

вы можете столкнуться с этой проблемой, если microsoft visual c ++ загружен с ошибками.
7.) недоступно в вашем регионе.

вы можете столкнуться с этой ошибкой, когда ваш часовой пояс настроен неправильно.


ну как то
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота