Обозначения:
В=ДЕЛ(х,12) С=ДЕЛ(х,18) А=ДЕЛ(х,А)
------------------------------------------------------
(¬В+¬С)→ ¬А=1
В*С+¬А=1 (формула: А+¬А=1)
А=В*С -----> Событие А: "х делится на 12 и на 18" - это НОК{12,18}
НОК{12,18} =36
ответ 36
Var s,a:integer;
i:byte;
begin
s:=0;
For i:=1 to 3 do
begin
readln (a); // цена тетради
s:=s+a; // прибавление к общей стоимости тетрадей
end;
writeln (s);
end.
смогли я Вам чем-нибудь помочь?
Program qqq;
var n, s, x1, z1, i, del: integer;
begin
writeln ('vvedi 5-znachnoe chislo < 32768');
{ограничение типа integer}
readln (n);
del:=10000;
for i:=1 to 5 do
begin
z1:= n mod del;
x1:= n div del;
s:=s+x1;
n:=z1;
del:=del div 10;
end;
writeln ('summa cifr=', s);
readln;
end.
Это не ноутбук или нетбук
Переведем все в десятичную систему счисления:
11011"2"=27"10"
200"3"=18"10"
33"8"=27"10"
102"5"=27"10"
значит сломаны весы под номером 2