Перевести числа: 38, 52 в двоичную систему счисления 1000011, 1100111 перевести в десятичную

1)

Могу предложить такой вариант - в цикле repeat число вводится как строка и посимвольно проверяется. если введено неправильно - возвращает на ввод, если правильно - преобразует строку в число для дальнейшей работы. var   a,err: integer;   s: string;   i: byte;   error: boolean; begin   repeat   error: =true;   writeln ('введите число');   readln (s);   for i: =1 to length(s) do begin     if (ord(s[i])< 48) or (ord(s[i])> 57)       then begin error: =false; writeln ('введено не число'); break; end   end;   until error=true;   val(s,a,err);   writeln ('введено число ',a); end. пример: введите число 12o введено не число введите число 120 введено число 120

́ческая моде́ль  —    представлениереальности[1], один из вариантов  модели, как  системы, исследование которой позволяет получать  информацию  о некоторой другой системе. процесс построения и изучения моделей называется  моделированием. все  естественные  и  общественныенауки, использующие аппарат, по сути, занимаются моделированием: заменяют  объект исследования  его   моделью  и затем изучают последнюю. связь модели с  реальностьюосуществляется с цепочки  гипотез,  идеализаций  и . с методов описывается, как правило, идеальный объект, построенный на этапе содержательного моделирования[⇨].