Program Programma;
Uses crt;
var xA,xB,yA,yB,D: real;
Begin clrscr;
write('Введите координаты точки A через пробел: ');
readln(xA,yA);
write('Введите координаты точки B через пробел: ');
readln(xB,yB);
d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
writeln;
write('Длина отрезака AB = ',d:0:3)
End.
240 минут назад часы показывали 22:45.
может это конечно и не правильно..
512*512*256=67108864 бит
67108864 / 8=8388608 байт
8388608/1024=8192 Килобайт
8192/1024= 8 Мегабайт
Var
i,s:integer;
a:array [1..12] of integer;
begin
randomize;
s:=0;
for i:=1 to 12 do
begin
a[i]:=Random(35)+10;
writeln(a[i]);
if a[i] mod 3=0
then s:=s+a[i];
end;
writeln(s);
end.
I = 2 Кбайта = 2 * 1024 * 8 = 16384 бит
k = 4096 символов
I = k * i
Найдём i
i = I / k
i = 16384 / 4096 = 4
N = 2 ** i
N = 2 ** 4
N = 16
Ответ: Мощность алфавита 16.