program zadacha;
var i:integer; stroka:string;
begin
readln(stroka);
for i:=1 to Length(stroka) do
if stroka[i]<>chr(ord(32)) then
write(stroka[i])
else
break;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program zadacha;
var i:integer; stroka:string;
begin
readln(stroka);
for i:=1 to Length(stroka) do
if stroka[i]<>chr(ord(32)) then
write(stroka[i])
else
break;
end.