Напишите программу,которая объединяет четыре введенных слова в однy строчку и выводит

Напишите программку,которая объединяет четыре введенных слова в однy строку и выводит их три раза, причём в первой строке ставится в конце ?, во второй ??, а в третьей ???
Pascal.

Задать свой вопрос
Амелия Шмиглч
Что становится в конце и тд неясно
Леонид Варяхов
в конце ставятся вопросительные знаки,ало.
Кадина Лариса
помогите,пожалуйста.
Сточниенко Ксюха
К примеру 1-ое слово будет Н торое О третье Р а четвёртое А = НОРА И получает 1раз НОРА? 2раз НОРА?? и 3-ий раз НОРА ???
Владимир Кивачук
так ?
Кирюха Починеев
Да.
1 ответ
Program p1;
uses crt;
var s,s2,s3:string;
i,a:integer;
begin
read(s);
for i:=1 to 4 do begin
 a:=Pos(' ',s);
 s2:=Copy(s,1,a-1);
 delete(s,1,a);
 s3:=s3+s2;
 end;
 s3:=s3+s;
 for i:=1 to 3 do begin
 s3:=s3+'?';
 writeln(s3);
 end;
 end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт