Очень нужна помощь, пожалуйста!
1. Одно яблоко весит 100 граммов, один апельсин -150 граммов, а один банан – 170 г. Вам дают заданное количество яблок, апельсинов или бананов, и взять можно только что-то одно. Хочется взять то, что весит побольше. Напишите программу, подсказывающую, что лучше взять; яблоки, апельсины или бананы.
2. Дано натуральное число, меньшее 1000. Напишите программу, которая определяет количество разных цифр в этом числе. Пример: Число: 988 Ответ: 2
1. Одно яблоко весит 100 граммов, один апельсин -150 граммов, а один банан – 170 г. Вам дают заданное количество яблок, апельсинов или бананов, и взять можно только что-то одно. Хочется взять то, что весит побольше. Напишите программу, подсказывающую, что лучше взять; яблоки, апельсины или бананы.
2. Дано натуральное число, меньшее 1000. Напишите программу, которая определяет количество разных цифр в этом числе. Пример: Число: 988 Ответ: 2
Answers & Comments
===== 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.