20 букв и 10 цифр составляют алфавит объемом 30 символов. Для размещения 30 символов требуется 5 бит (2^5=32 - достаточно, а 2^4=16 - не хватает).
Для одного 8-символьного номера требуется 5х8=40 бит.
Для 40 номеров потребуется 40х40=1600 бит. Или 1600/8=200 байт.
На паскаль
var i,j,k:longint;
begin
read(i);
if i < 10 then write('Число меньше 10. Поэтому оно не имеет двузначный делитель');
for j:=10 to 99 do
if i mod j=0 then inc(k);
if k=0 then write('Ваше число не имеет двузначный делитель') else write('Ваше число имеет ',k,' делителей');
end.
Я думаю что А.Это для меня самый правельный ответ.Мы в школе проходили там тоже такой вопрос был.А будь уверена.
<span>.
</span>
3.
Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if (X>=-2)and(Y<=-X)and(X*X+Y*Y>=4) then WriteLn('Попал')
else WriteLn('Мимо')
End.
5.
Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if (Y<=0)and(X>=0)and(Y>=X/2 -1) then Write('Попал')
else WriteLn('Мимо')
End.
Var n,i,max:integer;
a:array [1..1000] of integer;//объявляем массив
begin
writeln('Введите количество чисел');
readln(n);
for i:=1 to n do begin
readln(a[i]);
if a[i]>max then
max:=i;
end;
writeln('Индекс максимального элемента массива =', max);
end.