Предмет: Информатика, автор: MarkovkaKul

Помогите . Напишите программу полностью на Паскале

Приложения:

Ответы

Автор ответа: Omikami
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.

Похожие вопросы