Паскаль. Составить программку, которая по введенному числу в спектре 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
Статьи
Информатика
Статьи
Последние вопросы
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Облако тегов