Предмет: Информатика,
автор: Viktoria030911
написать программу кодирования текста с помощью тарабарской грамоты.на паскале
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Математика,
автор: Аноним
Предмет: Другие предметы,
автор: toktombetovasaikal
Предмет: География,
автор: sitkovaevgenia2
Предмет: Физика,
автор: Виноградик555
Предмет: Литература,
автор: iruhok