Дана последовательность из целых чисел. количество чисел неизвестно, но их не более 100, ноль признак окончания ввода. определить в последовательности максимальное число кратное 3 и оканчивающееся на 5, минимальное число не кратное 3 и оканчивающееся на 1, а также общее количество чисел. известно что числа по своему абсолютному значению не превышают 300. в первой строке необходимо вывести общее количество чисел, во второй - наибольшее число, кратное 3 и оканчивающееся на 5, в третьей - наименьшее число не кратное 3 и оканчивающееся на 1.
Объяснение:
Элемент «ИЛИ» (OR)
По другому, его зовут «дизъюнктор».
Любуемся:
Элемент ИЛИ
Опять же, название говорит само за себя.
На выходе возникает единица, когда на один ИЛИ на другой ИЛИ на оба сразу входа подана единица. Этот элемент можно назвать также элементом «И» для негативной логики: ноль на его выходе бывает только в том случае, если и на один и на второй вход поданы нули.
Едем дальше. Дальше у нас очень простенький, но очень необходимый элемент.
Элемент «НЕ» (NOT)
Чаще, его называют «инвертор».
Элемент НЕ
Надо чего-нибудь говорить по поводу его работы?
Ну тогда поехали дальше. Следующие два элемента получаются путем установки инвертора на выход элементов «И» и «ИЛИ».
Элемент «И-НЕ» (NAND)
Элемент И-НЕ
Элемент И-НЕ работает точно так же как «И», только выходной сигнал полностью противоположен. Там где у элемента «И» на выходе должен быть «0», у элемента «И-НЕ» - единица. И наоборот. Э то легко понять по эквивалентной схеме элемента:
Эквивалентная схема элемента И-НЕ
var
n,s:longint;
n1:integer;
begin
readln(n);
s:=0;
while n <> 0 do begin
n1:=n mod 10;
if n1 mod 2 = 0 then s:=s+n1;
n:=n div 10 end;
writeln('s=',s)
end.
Объяснение:
картинка
Строки 2 и 3 можно менять местами
Строки 5 и 6 можно менять местами
var
n1:integer;
n,s:longint;
begin
s:=0;
readln(n);
while n <> 0 do begin
n1:=n mod 10;
if n1 mod 2 = 0 then s:=s+n1;
n:=n div 10 end;
writeln('s=',s)
end.
Описываем переменные
Вводи число
Начальное значение переменной для накопления суммы равно 0
Цикл (пока число неравно 0):
вычисляем последнюю цифру числа
проводим проверку на чётность, если пройдена, то суммируем
отбрасываем последнюю цифру числа
Выводим результат