• Предмет: Информатика
  • Автор: Viktoria030911
  • Вопрос задан 10 лет назад

написать программу кодирования текста с помощью тарабарской грамоты.на паскале

Ответы

Ответ дал: Аноним
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.

Похожие вопросы