Var
x : real;
begin
read (x);
if (x > -1) and (x <= 11) then write ('принадлежит') else write ('не принадлежит');
end.
N=2^i
n=64
64=2^6
6 бит на пиксель
((1024*768)*6)/(8*1024)=576 Кбайт
Может быть материнская плата?
До нельзя просто. div находит целое число от деления, mod — остаток. Путём деления и находим, кто сколько пицц скушает =)
program Pizza2friends;
var N,M:integer;
begin
writeln('Введите количество пицц');
read(N);
writeln('Введите количество друзей');
read(M);
if N > M then
writeln('У каждого друга будет ',N div M,' пицц. Останется ',N mod M,' ничьих пицц.')
else writeln('Пицц должно быть больше, чем друзей');
end.
К<span> </span>фактам<span> </span>относятся <em />знания об определённых явлениях