Составить программу, которая обращает введенное слово, т.е. переставляет символы в слове в обратном порядке

@uM6o · Регистрация: 30.10.2012

Студворк — интернет-сервис помощи студентам

Например, мама – амам, Петя – ятеП.

@ermolay · 31.10.2012, 00:17

Pascal

var
  str: string;
  i: byte;
  ch: char;
begin
  write('Введите слово: ');
  readln(str);
  for i:=1 to length(str) div 2 do
  begin
    ch:=str[i];
    str[i]:=str[length(str)-i+1];
    str[length(str)-i+1]:=ch;
  end;
  writeln(str);
  readln;
end.

@uM6o · 31.10.2012, 14:05 **[ТС]**

а если я сделаю вот так:

Pascal

var s,s1:string;
    i:byte;
begin
read(s);
s1:=s;
  for i:=length(s) downto 1 do
  s[i]:=s1[length(s)-i+1];
writeln(s)
end.

это правильно?

@uM6o 0 / 0 / 1 Регистрация: 30.10.2012 Сообщений: 12
		1
	Составить программу, которая обращает введенное слово, т.е. переставляет символы в слове в обратном порядке 30.10.2012, 23:10. Показов 5491. Ответов 2 Метки нет (Все метки) Например, мама – амам, Петя – ятеП. 0

Опции темы

Составить программу, которая обращает введенное слово, т.е. переставляет символы в слове в обратном порядке

Решение