Составить процедуру вычисления значения целого числа по заданной строке символов, являющейся записью этого числа:
а) в десятичной системе счисления;
б) в шестнадцатеричной системе счисления.
Пишите на почту или в асю 586178755
program Project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
Var
tmp: boolean;
n, i: integer;
s: string;
procedure pr();
begin
i := 1;
while (s ',') and (i 57) and (ord(s) < 65 ) and (ord(s) > 70 )) ) and (s ',') then
tmp := False;
if tmp then
pr()
else write('Nevernii vvod');
readln();
readln();
end.
как два пальца об асфальт...
⇢