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

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

Показать ответ
Ответ:
madoleh
madoleh
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-бота