Предмет: Информатика,
автор: MarkovkaKul
Помогите . Напишите программу полностью на Паскале
Приложения:

Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Математика,
автор: evawolfard0
Предмет: Английский язык,
автор: Lisamir2008
Предмет: Литература,
автор: tetanaferenc9
Предмет: Математика,
автор: dreguzova173