var
i, count:integer;
begin
for i := 10 to 99 do
if ( (i * 3) mod 10 + ((i * 3) div 10) mod 10 + (i * 3) div 100 ) mod 5 = 0 then
inc(count);
writeln('Count = ', count);
end.
Мы не можем их никак отсортировать.
1. Значений/диапазона значений у нас нет.
2. Функции принимают разные аргументы, add и sub принимаю a,b, а mult принимает x. Даже примерно сказать не можем.
Можем разобраться на примере.
Пусть a = 5, b = 5, x = 5.
Тогда add вернет нам 10
mult вернёт нам 25
sub вернет нам 0
Получается, что mult всегда выдает нам максимальное значение, а sub минимальное? Не-а.
Другой пример.
a = - 5 , b = - 5, x = 0
Тогда add вернет нам -10
mult вернет нам 0
sub вернёт нам 0
Из этого примера делаем вывод, что mult дает значение такое же, как и sub.
Общий вывод: Всё зависит от переменных, так просто сравнить функции - нельзя.
Объяснение:
В цифровой схемотехнике цифровой сигнал - это сигнал, который может принимать два значения, рассматриваемые как логическая "1" и логический "0".
Логические схемы могут содержать до 100 миллионов входов и такие гигантские схемы существуют. Представьте себе, что булева функция (уравнение) такой схемы была потеряна. Как восстановить её с наименьшими потерями времени и без ошибок? Наиболее продуктивный разбить схему на ярусы. При таком записывается выходная функция каждого элемента в предыдущем ярусе и подставляется на соответствующий вход на следующем ярусе. Этот анализа логических схем со всеми нюансами мы сегодня и рассмотрим.
Program p1;
Uses crt;
Var i:byte;
kol:integer;
Begin
For i:= 10 to 99 do
if i*3 div 10<10 then
if ((i*3 mod 10)+(i*3 div 10)) mod 5=0 then
kol:=kol+1
else
if ((i*3 mod 10)+(i*3 div 10)+(i*3 div 100)) mod 5=0 then
kol:=kol+1;
Writeln('Количество чисел = ',kol);
End.