Question

Ребят, жду помощи
Нужно написать программу на паскале
1) Вводи 2 слова
2)Программа пишет что 1 слово - n символов, 2 слово - n символов, а пробел символ номер N
3)Программа пишет 1 слово, а за ним первый символ 2 слова.
На этом все

Answer 1

Uses crt;
var
a:string;
i,n:integer;
begin
clrscr;
   writeln('Введи 2 слова через пробел');
   readln(a);
      n:=pos(' ',a);
      writeln('1 слово ',n-1,'  символов');
      writeln('2 слово  ',length(a)-n,'  пробел - символ № ',n );
for i:=1 to n-1 do      
write(a[i]);
write(a[n+1]);
readkey;
end.