Человек. Тут все просто. :)
Объяснение:
"А" меньше 0?
ответ: нет, она больше 0. (Т.е.: А=8)
Значит ты идешь вниз по стрелочке "нет".
Дальше формула:
В=А-В
Значит: В=8-2=6
ответ: В=6
Тоже самое делаем с буквой "А":
А=А-2
Значит: А=8-2=6
ответ: А=6
ответ: А=6; В=6Теперь мы это все повторяем в том же духе, только до того момента пока значение буквы "А" не станет меньше "0".
Значит повторяем:
"А" меньше 0?
ответ: нет, она больше 0. (Т.е.: А=6)
Значит ты идешь вниз по стрелочке "нет".
Дальше формула:
В=А-В
Значит: В=6-6=0
ответ: В=0
Тоже самое делаем с буквой "А":
А=А-2
Значит: А=6-2=4
ответ: А=4
ответ: А=4; В=0"А" меньше 0?
ответ: нет, она больше 0. (Т.е.: А=4)
Значит ты идешь вниз по стрелочке "нет".
Дальше формула:
В=А-В
Значит: В=4-0=4
ответ: В=4
Тоже самое делаем с буквой "А":
А=А-2
Значит: А=4-2=2
ответ: А=2
ответ: А=2; В=4"А" меньше 0?
ответ: нет, она больше 0. (Т.е.: А=2)
Значит ты идешь вниз по стрелочке "нет".
Дальше формула:
В=А-В
Значит: В=2-0=2
ответ: В=2
Тоже самое делаем с буквой "А":
А=А-2
Значит: А=2-2=0
ответ: А=0
ответ: А=0; В=2"А" меньше 0?
ответ: нет, она на равне с 0. (Т.е.: А=0)
Значит ты идешь вниз по стрелочке "нет".
Дальше формула:
В=А-В
Значит: В=0-0=0
ответ: В=0
Тоже самое делаем с буквой "А":
А=А-2
Значит: А=0-2=-2
ответ: А=-2
ответ: А=-2; В=0Значит мы условия выполнили! "А" меньше 0.Удачи!
var
number: integer;
begin
var size := readinteger;
var max := -32768;
for var i := 1 to size do
begin
number := readinteger;
if (number mod 4 = 0) and (number > max) then
max := number;
end;
write(max);
end.
Объяснение:
var
number: integer; // Целочисленная переменная, хранящая вводимые с клавиатуры числа
begin // Начало программы
var size := readinteger; // Считываем размер последовательности с клавиатуры
var max := -32768; // integer принадлежит диапазону [-32 768…32 767], взял за максимум самое маленькое число
for var i := 1 to size do // Идём от 1 до размера последовательности
begin // Начало цикла
number := readinteger; // Считываем число последовательности с клавиатуры
if (number mod 4 = 0) and (number > max) then // Если число делится на 4 без остатка и оно > max
max := number; // max присваиваем number
end; // Конец цикла
write(max); // Выводим ответ
end. // Конец программы
600 х 800 = 480 000 точек 480 000 точек х 24 бит = 11 520 000 бит
11 520 000 бит / 8 бит / 1024 байт = 1406,25 Кбайт / 1024 байт ≈ 1,37 Мбайт
ответ: ≈ 1,37 Мбайт