Нужно перевести код с паскаля на питон PROGRAM reader;
USES crt;
TYPE mas=array[1..80]of char;
masid=array[1..80] of integer;
maskluch=array[1..62] of string;
cifra=set of '0'..'9';
bukv=set of 'a'..'z';
BUKV2=set of 'A'..'Z';
VAR
{строки}
s,s1,s2,sb,sb1: string[80];
chislo:string[33];
{счетчики}
dlina,dlina1,kol,j,i,n,kolp,kolt,kolk,n1,n2: integer;
{массивы}
b,mb,mz,mc: mas;
mk,ms,mt,mp: maskluch;
{множества}
c: cifra;
bukva: bukv;
BUKVA2: BUKV2;
{файлы}
f,g: text;
{}
{$I TRANS.pas}
{$I LEKSIKA.pas}
{$I IDENT.pas}
{$I SINTAKS.pas}

{}
BEGIN
initial; {чтение из файла}
trans; {транслитерация: с-буква, ' '-пробел}
leksika; {лексический блок: символ входного языка - класс символа}
ident; {идентификация: какое из слов соответствует заданному идентификатору}
sintaksis; {синтаксический блок: соответствует ли цепочка формулам}
END.

Kyki510    1   18.07.2021 23:40    1