uses crt;
begin
var s: string;
var n: char;
var m: set of char := ['A'..'Z'];
for var i := 1 to 10 do begin
n := ReadKey;
if n in m then s[i-1] := #32;
s += n;
clrscr;
println(s);
end;
end.
Объяснение:
uses crt;
begin
var s: string;
var n: char;
var m: set of char := ['A'..'Z'];
for var i := 1 to 10 do begin
n := ReadKey;
if n in m then s[i-1] := #32;
s += n;
clrscr;
println(s);
end;
end.
Объяснение: