fkn+antitotal

урок 9 задача 7

Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).
Примечание: решение с помощью AND более удобно на практике, но для тренировки понимания тут мы решаем через вложенные блоки.

Задача 7 Урок 9:

Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).
Примечание: решение с помощью AND более удобно на практике, но для тренировки понимания тут мы решаем через вложенные блоки.

урок 9 задача 6

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

Из главного меню virtualbox выполняем:

File
-> Host Network Manager

И в открывшемся окне кликаем по пиктограмме Create, после чего можно указать настройки адаптера

Nonexistent host networking interface, name 'vboxnet0' (VERR_INTERNAL_ERROR).

Для сравнения фрагметов файлов можно использовать плагин Partial Diff:
https://marketplace.visualstudio.com/ite...

Чтобы сравнить два фрагмента надо:

1. Выделить первый фрагмент текста, кликнуть по нему правой кнопкой мыши и выбрать опцию "Добавить для сравнения"
2. Выделить второй фрагмент текста и выбрать опцию "Сравнить с предыдущим выделенным фрагментом"

Также плагин умеет сравнивать выделенное с содержимым буфера обмена. Отличная шутка)

Урок 11. Задание 4

Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

Урок 11. Задание 3

Решите с помощью цикла while:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

var i: integer;
begin
  i:= 35;
  while ((i >= 35) AND (i <= 117)) do
  begin
    if ((i mod 3) = 0) then
       write(i, (' '));
       i:=i+1;
  end;
end.

Урок 11. Задание 2

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить, не выводя в ответ сумму.

Первое введенное пользователем число можно сложить с единицей.

Урок 11. Задание 1

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

var i: integer;

begin
i:=0;
    while i<>0 do
    begin
        readln(i);
        if i<15 then
        begin
            writeln(i+7);
        end else
            break    
    end;
end.