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.
Пример решения
Введите первое слово: Корова
Введите второе слово той же длины: собака
Результат: Ксоорбоавкаа
Болт-бот = л л=11-8=3 вол = 9 во = вол - л = 9 - 3 = 6 лото = 12 ото = лото - л = 12 - 3 = 9 бот = 8, значит о>б на 1, л = 3 , о = 2, 6 = 1, тогда т = 9-2-2 = 5, а в = 6 - 2 = 4
Var s,k: real;
i:integer;
Begin
Write('Введите стоимость 1 кг конфет: ');
Readln(s);
for i:=1 to 10 do begin
k+=1;
Writeln('Стоимость ', k*0.1, ' кг конфет = ', k*0.1*s);
end;
end.
Можно как-нибудь так (исходник и скрин работы в приложении)