256/16=16 (ост.0)
16/16=<u>1</u> (ост 0)
ответ 256=100 (ответ получается из остатков в обратном порядке, начиная с 1)
400/16=25 (ост.0)
25/16=<u>1 </u>(ост.9)
ответ 400=190
1234/16=77 (ост 2)
77/16=<u>4 </u>(ост 13 - это D)
ответ 1234=4D2
2012/16=125 (ост 12 - это C)
125/16=<u>7 </u>(ост 13 - это D)
ответ 2012=7DС
14 млн. Байтов 112млн. Битов или 14 тыс. Килобитов
Var
H2SO4:string;
B:integer;
Begin
B:=0;
WriteLn('Введите три формулы кислот');
ReadLn(H2SO4);
if H2SO4 = 'H2SO4' then B:=1;
ReadLn(H2SO4);
if H2SO4 = 'H2SO4' then B:=2;
ReadLn(H2SO4);
if H2SO4 = 'H2SO4' then B:=3;
if B = 0 then WriteLn('Формулы серной кислоты среди них нет')
else WriteLn('Формула серной кислоты: №',B)
End.
CLS
PRINT" Введите 10 чисел "
FOR i=1 TO 10
INPUT A
IF (A*A)<100 THEN PRINT A :PRINT " ": PRINT (A*A)
NEXT I
END