Паскаль 1 вариантНомера 1,2

Паскаль 1 вариант
Номера 1,2

Задать свой вопрос
1 ответ

1. var s:string;

  i:integer;

   BEGIN

   readln(s);

   if (pos(' ',s)-1gt;Length(s)-pos(' ',s)) then

   writeln('Имя длиннее фамилии.');

   if (pos(' ',s)-1lt;Length(s)-pos(' ',s)) then

   writeln('Фамилия длиннее имени.');

   if (pos(' ',s)-1=Length(s)-pos(' ',s)) then

   writeln('Имя и фамилия имеют схожую длину.');

   end.

2. var s:string;

   i,k:integer;

   BEGIN

   readln(s);

   k:=0;

   for i:=1 to Length(s)-1 do begin

   k:=k+2;

   insert('+',s,k);

   end;

   writeln(s);

   end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт