Var
s,ss:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=Length(s) downto 1 do
begin ss:=s[i]+s[i]; Insert(ss,s,i) end;
Writeln('Результат: ',s)
end.

Пример решения
Введите строку: Я умею писать программы!
Результат: ЯЯЯ ууумммеееююю пппииисссааатттььь пппрррооогггррраааммммммыыы!!!

var
s:string;
i:integer;
begin
Write('Введите слово: '); Readln(s);
for i:=Length(s) downto 1 do Insert(' ',s,i);
Writeln('Результат: ',s)
end.

Пример решения
Введите слово: Паскаль
Результат: П а с к а л ь

var
s1,s2,s3:string;
i:integer;
begin
Write('Введите первое слово: '); Readln(s1);
Write('Введите второе слово той же длины: '); Readln(s2);
s3:='';
for i:=1 to Length(s1) do s3:=s3+s1[i]+s2[i];
Writeln('Результат: ',s3)
end.

Пример решения
Введите первое слово: Корова
Введите второе слово той же длины: собака
Результат: Ксоорбоавкаа

0 0

1 год назад

Основные конструкции языка программирования Паскаль. Вариант 4. 1. В алгоритме, записанном ниже, используются целочисленные пере

Микки ру [421]

<span>1)
a:=-3
b:=(-3+2)*(-3+2)=1
a:=2*1-(-3)=5
2) Будет выведено число 1
</span>

0 0

4 года назад

Дан специальный знак языка Паскаль: ; Определи его назначение.а)комментарийб)заключают в себе индексы элементов массивовв)отделя

NIKolaii

Ответ :
в ) отделяет один раздел програми от другого...

0 0

5 лет назад