Вывести на экран переменную а целого типа, которая будет занимать на 7 позиций

143

401

Посмотреть ответы 1

Ответы на вопрос:

DENISIZ8V

Информатика

4,8(7 оценок)

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. пример решения введите первое слово: корова введите второе слово той же длины: собака результат: ксоорбоавкаа