Нанинге наанани кнопок и их назначения Ne
Noonka
Добавить reser
обновить таблицу
Ornaanne
Onanerine
В список илюстраций
І обновить таблицу
Вставить
Да Перекрестная ссылка
название
Названия
АВ'
Г) Вставить концевую сноску
А сюдующая сноска
Вставить
Сноску
Показать сноски
Сноски​

1) Наглядное представление информации.

2) Простота в использовании: в консоли вы не можете посмотреть содержимое папки, если не знаете, какой командой это делается.

3) Быстрое переключение между задачами и многозадачность (попробуйте одновременно выполнить несколько программ в одной консоли. Если я не ошибаюсь, это возможно только в Unix-подобных системах.)

1) Избыточное количество действий: нередко для выполнения тривиальных задач нужно нажать больше кнопок, чем в консоли. Например, su kwrite выполняется гораздо быстрее, чем Пуск - Все программы - Стандартные - Блокнот.

2) Сложности в настройке: нередко трудно выбрать подходящие размеры шрифта, а неправильный выбор может быть вреднее для глаз или причинять неудобства.

Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.

Код программы:

function isSevenHere(number : integer) : boolean;var digit : integer;begin  Result := true;  while (number > 0) do  begin        digit := number mod 10;    if (digit = 7) then            exit;    number := number div 10;  end;  Result := false;end;
var i,k :integer;begin  write('Введите k: ');  readln(k);
  for i := 1 to k do    if (isSevenHere(i) = true) then      write(i,' ');end.