Program Pr1;
uses crt;
var stroka,tmp:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i]=' ' then tmp:=copy(stroka,1,i-1);
writeln(tmp);
end.
Система - это объект,состоящий из взаимосвязанных элементов и существующих как одно целое
1. Китайцы - мышонок, Немцы - обезьяний хвост, Итальянцы и французы - улитка
Держи! В файле прикрепил или на скриншоте смотри :)
Информатика информатика информатика