Var
n, sum :integer;
begin
readln(n);
sum:= (n div 10) + (n mod 10);
write(sum,' - ');
if sum mod 2 = 0 then
write('четная')
else
write('нечетная');
end.
29мбит/с Umin=5 uffufyoc8tdtd8dutost80dtdtusruzpufxputsputdtditdtidiyydydoydyocylclfluflufpu
У исполнителя существует 2 команды:
1. Умножить на 2
2.Прибавить 3
Сколько существует программ которые позволяют из цифры 1 получить 17.
Если про алгоритм, то можно такую.
program w7w7;
var a:real;
begin
readln (a);
if a<0 then writeln ('otritsatelnoe chislo');
if a>0 then writeln ('pologitelnoe chislo');
end.
1. P после инвертора даст ¬P
2. Далее ¬P & Q - тут и так понятно, написано на самом элементе.
3. R после инвертора даст ¬R
4. И оба сигнала (2) и (3) подаются на схему "ИЛИ", поэтому окончательно получаем F(P,Q,R)=(¬P & Q) | ¬R
Или, в другом виде