===== 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) Наглядное представление информации.
2) Простота в использовании: в консоли вы не можете посмотреть содержимое папки, если не знаете, какой командой это делается.
3) Быстрое переключение между задачами и многозадачность (попробуйте одновременно выполнить несколько программ в одной консоли. Если я не ошибаюсь, это возможно только в Unix-подобных системах.)
1) Избыточное количество действий: нередко для выполнения тривиальных задач нужно нажать больше кнопок, чем в консоли. Например, su kwrite выполняется гораздо быстрее, чем Пуск - Все программы - Стандартные - Блокнот.
2) Сложности в настройке: нередко трудно выбрать подходящие размеры шрифта, а неправильный выбор может быть вреднее для глаз или причинять неудобства.
ответ: ТЫ ИЗ ИНТЕРНЕТ УРОКА??????????????????????????????????????????????????
Объяснение: