Тема: Помощь по pascal
здрасти....может кто подсказать в коде малость не могу допереть мне надо что я сам вписывал текст с клавы а не рандом это делал
program lab5;
const n=10;
var sm:array [1..n] of char;
s,s1:string;
i,j:integer;
begin
s1:='.';
for i:=1 to n do
repeat
sm i:=chr(random(255));
until sm i in [' ','A'..'Z','a'..'z'];
writeln('Text: ');
writeln(sm);
s:=sm;
for i:=length(sm) downto 1 do
begin
if (sm i = UpCase(sm i))
then insert(s1,s,i);
end;
writeln;
writeln('Obrabotanniy text: ');
writeln(s);
readln;
end.
Вроде тут надо исправлять
begin
s1:='.';
for i:=1 to n do
repeat
sm i:=chr(random(255));
until sm i in [' ','A'..'Z','a'..'z'];
writeln('Text: ');
writeln(sm);
s:=sm;
на индекес без ковычек можно не обращять внимание .....
Отредактировано (, 11 лет 5 месяцев назад)