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

Нужна , !
1. одно яблоко весит 100 граммов, один апельсин -150 граммов, а один банан – 170 г. вам заданное количество яблок, апельсинов или бананов, и взять можно только что-то одно. хочется взять то, что весит побольше. напишите программу, подсказывающую, что лучше взять; яблоки, апельсины или бананы.
2. дано натуральное число, меньшее 1000. напишите программу, которая определяет количество разных цифр в этом числе. пример: число: 988 ответ: 2

Показать ответ
Ответ:
angelinashushi
angelinashushi
10.10.2020 17:11

===== PascalABC.NET =====

-№1-

begin

  var (Яблок, Апельсинов, Бананов) :=

     ReadInteger3('Число яблок, апельсинов и бананов:');

  var ВесЯблок := 100 * Яблок;

  var ВесАпельсинов := 150 * Апельсинов;

  var ВесБананов := 170 * Бананов;

  if ВесЯблок > ВесАпельсинов then

    if ВесЯблок > ВесБананов then

       Print('Берем яблоки')

    else

       Print('Берем бананы')

  else if ВесАпельсинов > ВесБананов then

     Print('Берем апельсины')

  else

     Print('Берем бананы')

end.

-№2-

begin

 var n := ReadInteger('Введите натуральное число;');

 var P := new HashSet<integer>;  // это множество целых

 while n > 0 do

 begin

   P += n mod 10;  // очередную цифру добавляем ко множеству

   n := n div 10

 end;

 P.Count.Println  // в множестве все элементы уникальны

end.


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