Конечно,ведь всего у двух их 7,а значит у одного может быть одно яблоко,а у другого 6
Var a,b,c,d,S:integer;
begin
readln(d);
S:=0;
a:=7;
b:=3;
c:=a+b;
if c>d then
S:=c-d
else
S:=d-c;
writeln(S);
end.
Алфавит состоит всего из 62 символов (26 прописных, 26 строчных и цифры 0,1,2,3,4,5,6,7,8,9), следовательно, чтобы закодировать один символ понадобиться 6 бит( т.е. у нас 62 символа, самая близкая степень двойки - это 64, 2 в 6 степени - 64)
Так, у нас 11 символов, 6*11=66 - бит нужно для кодировки пароля. А ближайшее число байт - это 9 (т.к. 8*9=72, в одном байте - 8 бит, 8 байт не хватит - т.к. 8*8=64, а у нас 66)
Доп. сведения - 13 байт.
13 байт + 9 байт = 22 байт.
1 КБ = 1024 байт
1024 байт : 22 байт = 46, 5454545
Ответ: 46 пользователей
При использовании палитры из 4 цветов для хранения одной точки изображения требуется log(2)4 = 2 бита.
Объем видеопамяти:
640*350*2 бит = 448000 бит = 448000/8 байт = 56000 байт
Uses crt;
var p,a,b,c,xa,xb,xc,ya,yb,yc,ab,ac,bc,xab,yab,xbc,ybc,xac,yac:real;
s:real;
begin
writeln('Введите х координаты вершин а и b');
readln(xa,xb);
writeln('Введите y координаты вершин а и b');
readln(ya,yb);
xab:=xb-xa;
yab:=yb-ya;
ab:=sqrt(xab*xab+yab*yab);
writeln('Введите х координаты вершин а и с');
readln(xa,xc);
writeln('Введите y координаты вершин а и c');
readln(ya,yc);
xac:=xc-xa;
yac:=yc-ya;
ac:=sqrt(xac*xac+yac*yac);
writeln('Введите х координаты вершин b и с');
readln(xb,xc);
writeln('Введите y координаты вершин b и c');
readln(yb,yc);
xbc:=xc-xb;
yab:=yc-yb;
bc:=sqrt(xbc*xbc+ybc*ybc);
p:=(ab+bc+ac)/ 2;
s:=sqrt(p*(p-ab)*(p-bc)*(p-ac));
writeln(s);
end.