написать программу кодирования текста с помощью тарабарской грамоты.на паскале
var
a,c:string;
I:integer;
Begin
Randomize;
Writeln (введи фразу);
Readln (a);
c:=;
For I:=1 to Length(a) do begin
c:=c+a[i]+chr(random(32)+224);
end;
Write (c);
End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
