Пример: список образовательных учреждений: 1. Начальное образование 1.1. детские сады. 1.1.1. частные 1.1.2. муниципальные 1.2. учреждения дополнительного дошкольного образования. 2. Среднее образование 2.1. школы 2.1.1. обычные 2.1.2. коррекционные 2.1.3. с уклоном на что-либо (языки, история и т.д.) 2.2. учреждения дополнительного образования. 3. Среднее специальное образование 3.1. училище 3.2. техникум 3.3. колледж Каждое из видов делятся на гуманитарные и технические. 4. Высшее образование 4.1. институт 4.2. университет 4.3. академия и т.д.
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018 Внимание! Если программа не работает, обновите версию!
function DecToa(n:string;k:integer):string; // Перевод из десятичной системы в систему по основанию k begin var s:='0123456789'; Result:=''; var PointPos:=Pos('.',n); var IntPart:integer; if PointPos>0 then begin // есть дробная часть var FracPart:=Frac(n.ToReal); var m:=0; while True do begin var r:=FracPart*k; Result+=s[Trunc(r)+1]; FracPart:=Frac(r); m+=1; if (m=15) or (FracPart=0) then break end; IntPart:=n[:PointPos].ToInteger; end else IntPart:=n.ToInteger; if Result<>'' then Result:='.'+Result; while IntPart>0 do begin Result:=s[IntPart mod k+1]+Result; IntPart:=IntPart div k end; if Result='' then Result:='0'; if Result[1]='.' then Result:='0'+Result end;
begin var n:=ReadlnString('Какое число перевести?'); var p:real; if not real.TryParse(n,p) then Writeln('Такая запись недопустима') else if n.Contains('e') or n.Contains('E') then Writeln('Запись в экспоненциальном формате не разрешена') else begin var k:=ReadInteger('Укажите основание системы:'); if k.Between(2,36) then Writeln(n,'(10) = ',n[1],DecToA(n[2:],k),'(',k,')') else Writeln('Допустимы основания 2..36') end end.
Примеры Какое число перевести? 123,5433 Такая запись недопустима
Пример: список образовательных учреждений:
1. Начальное образование
1.1. детские сады.
1.1.1. частные
1.1.2. муниципальные
1.2. учреждения дополнительного дошкольного образования.
2. Среднее образование
2.1. школы
2.1.1. обычные
2.1.2. коррекционные
2.1.3. с уклоном на что-либо (языки, история и т.д.)
2.2. учреждения дополнительного образования.
3. Среднее специальное образование
3.1. училище
3.2. техникум
3.3. колледж
Каждое из видов делятся на гуманитарные и технические.
4. Высшее образование
4.1. институт
4.2. университет
4.3. академия
и т.д.