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

Какое значение примет переменная х после выполнения следующих операторов при значениях а 1.2.4.5.6​

Показать ответ
Ответ:
Дамир0001
Дамир0001
14.02.2023 19:12
Program uva;
begin
 write(1000/((50*50*40)/1000000)/2.5, "лимонов и "1000/((50*50*40)/1000000)/2.5*1.5 " апельсинов" );
//50*50*40 ищется объём одной коробки, /1000000 переводится в метры, 
//1000/((50*50*40)/1000000) ищется количество коробок. нам нужно засунуть в // коробки как можно больше лимонов, т.к. они дороже. но их максимальное 
//количество соотносится с апельсинами как 1:1,5. Всего частей 1+1,5=2,5
//лимоны отсюда одна часть, значит делим все коробки на количество
//частей и получаем количество лимонов. а количество апельсинов просто 
//умножаем количество лимонов на 1,5
end.
0,0(0 оценок)
Ответ:
lolo2005
lolo2005
26.03.2020 05:14
Var n, amount, max_digit, copy_of_n: integer;
begin
     read(n);
     copy_of_n := n;
     amount := 0;
     max_digit := copy_of_n mod 10;
     while copy_of_n <> 0 do
     begin                                   {Находим наибольшую цифру в числе}
          if max_digit < copy_of_n mod 10
          then
              max_digit := copy_of_n mod 10;
          copy_of_n := copy_of_n div 10;
     end;
     copy_of_n := n;
     while copy_of_n <> 0 do        {Считаем количество таких цифр}
     begin
          if copy_of_n mod 10 = max_digit
          then
              amount := amount + 1;
          copy_of_n := copy_of_n div 10;
     end;
     writeln(amount);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота