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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
