Программа, инвертирующая слова в строке

@mavl · Регистрация: 19.01.2015

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

Ребя нужно написать программу которая инверсирует строку.
Вот программа(но она не меняет слова местами, пример :ввод 123 abc, вывод cba 321, А нужно чтобы было 321 cba)

Pascal

var
    s: string;
    i,n: byte;
    c: char;
begin
    write('Input string: ');
    readln(s);
    n := length(s) div 2;
    for i := 1 to n do begin
        c := s[i];
        s[i] := s[length(s)-i+1];
        s[length(s)-i+1] := c;
    end;
    writeln(s);
readln

@APALoff · 10.03.2015, 10:10

У Вас условие противоречит самому себе.

Сообщение от mavl

программу которая инверсирует строку.

Сообщение от mavl

ввод 123 abc, вывод cba 321, А нужно чтобы было 321 cba

Вывод под условия как раз правильный, а вот то что Вам нужно - не соответствует условию, т.к. инверсия строки и инверсия слов строки - это немного разные вещи.

Добавлено через 1 минуту

Не по теме:

И да, Вы опять не используете теги... буду продолжать минусить.

@mavl · 10.03.2015, 12:22 **[ТС]**

ну да ты прав

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	10.03.2015, 10:10	2
	У Вас условие противоречит самому себе. Сообщение от mavl программу которая инверсирует строку. Сообщение от mavl ввод 123 abc, вывод cba 321, А нужно чтобы было 321 cba Вывод под условия как раз правильный, а вот то что Вам нужно - не соответствует условию, т.к. инверсия строки и инверсия слов строки - это немного разные вещи. Добавлено через 1 минуту Не по теме: И да, Вы опять не используете теги... буду продолжать минусить. 0

@mavl 0 / 0 / 0 Регистрация: 19.01.2015 Сообщений: 32
	10.03.2015, 12:22 [ТС]	3
	ну да ты прав 0