поспорили клавиши кто важней.А говорит я вместо того что первая буква в алфавите так ещё и без меня было бы всё плохо.Д говорит может быть я важней.и говорит нет я важней всех пошли клавиши к мудрецу мудрец говорит вы посмотрите каво из вас за день больше нажмут тот и главней. вот пришёл Петя грустный ему задали писать сочинения сел писать.А когда закончил клавиши у друг друга с просил и ну так кто главней А говорит меня Петя нажал 138 РАЗ Б говорит меня тоже 138 И говорит и меня так.Пошли клавиши опять к мудрецу они говорят как это так нас всех нажали одинаково а мудрец им в ответ знаете бывает так что все клавиши не заменимы и тогда они поняли что все клавиши важны и с тех пор они больше никогда не спорили.
«VID-201238291» (10 240 Кбайт)
«VID-201239013» (9 216 Кбайт)
«VID-201238293» (5 120 Кбайт)
«VID-201238295» (1 024 Кбайт)
Объяснение:
Бабушке нужно скачать видео размером 25 Мбайт. Для этого придётся отправить в корзину какие-то старые ролики. Бабушка просит удалить как можно меньше видео.
«VID-201238291» (10 240 Кбайт) - это 10240/1024 = 10 Мбайт
«VID-201239013» (9 216 Кбайт) - это 9216/1024 = 9 Мбайт
«VID-201238293» (5 120 Кбайт) - это 5120/1024 = 5 Мбайт
«VID-201238295» (1 024 Кбайт) - это 1024/1024 = 1 Мбайт
Берём наибольшие значения из представленных. 6 Мбайт нет, лишь:
10 Мбайт, 5 Мбайт, 1 Мбайт, 0.5 Мбайт, 2 Мбайт, 9 Мбайт, 4 Кбайт и 60 Кбайт.
(1 Мбайт = 1024 Кбайт - просто делим; 1 Кбайт = 1024 Байт (они отпадают)).
Используем: 10 Мбайт + 5 Мбайт + 9 Мбайт + 1 Мбайт = 25 Мбайт.
Const:B=18:integer;
Var A:integer;
Begin
Writeln('Введите возраст');
Readln(A);
If A=>B then writeln('совершеннолетний') else writeln('не совершеннолетний');
End.