Паскаль. Составить программку, которая по введенному числу в спектре 0-15, выдает
Паскаль. Составить программу, которая по введенному числу в диапазоне 0-15, выдает его подходящий шестнадцатеричный эквивалент.
Задать свой вопрос1 ответ
Карина Ананасенко
uses
SysUtils;
var
s:string;
i,sum,multipler,temp:integer;
begin
multipler := 1;
Writeln('Vvedite shestnadtsateri4noe 4islo');
Readln(s);
s := Trim(s);
for i:= Length(s) downto 1 do begin
case s[i] of
'1'..'9' : temp := StrToInt(s[i]);
'A'..'F' : temp := 10 + ord(s[i]) - ord('A');
'a'..'f' : temp := 10 + ord(s[i]) - ord('a');
else
Writeln('Nedupustimii sumvol: ',s[i]);
Readln;
exit;
end;
sum := sum + multipler * temp;
multipler := multipler * 16;
end;
Writeln(sum);
Readln;
end.
SysUtils;
var
s:string;
i,sum,multipler,temp:integer;
begin
multipler := 1;
Writeln('Vvedite shestnadtsateri4noe 4islo');
Readln(s);
s := Trim(s);
for i:= Length(s) downto 1 do begin
case s[i] of
'1'..'9' : temp := StrToInt(s[i]);
'A'..'F' : temp := 10 + ord(s[i]) - ord('A');
'a'..'f' : temp := 10 + ord(s[i]) - ord('a');
else
Writeln('Nedupustimii sumvol: ',s[i]);
Readln;
exit;
end;
sum := sum + multipler * temp;
multipler := multipler * 16;
end;
Writeln(sum);
Readln;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов