простейшие алгоритмы со строковым данным

[Фрейтор 40-500]

тема :простейшие алгоритмы со строковым данным.

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

[Luuzuk]

решение:

Pascal:

begin
Writeln('русьли');
end.

C++:

int main()
{
  cout<<"русьли";
  return 0;
}

C#:

using System;

class Program
{
    static void Main()
    {
	Console.WriteLine("русьли");
    }
}

с вас миллион рублей

[Фрейтор 40-500]

извените . я сначало задачу не правилно сформулировал.посмотрите пожалуйста еще раз . буду признательно Вам)

[Luuzuk]

Вывести имя ильсур в обратном порядке

Первое решение в моём ответе соответствует условиям вашей задачи. Ввод ФИО можно сделать так:

var fio: string;
begin
  readln(fio);
  Writeln('русьли');
end.

[Фрейтор 40-500]

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

Первое решение в моём ответе соответствует условиям вашей задачи. Ввод ФИО можно сделать так:

var fio: string;
begin
  readln(fio);
  Writeln('русьли');
end.

спасибо и за это) но преподаватель не принял работу , говорит типо должны решить другим способом , нужно включить цикл,условия

[Luuzuk]

Нужно правильно формулировать задачу. Если задание было дословно таким, каким вы его здесь написали, то преподаватель не имел права его не засчитать, т.к. оно абсолютно точно соответствует условиям задачи

[Фрейтор 40-500]

вот он дал мне пример задачи (вывести имя столбиком)

Program ss;
uses crt;
var s:string; k,i,a:byte;
begin
writeln('vvedite imya ,familiya,otshestvo');
readln(s); k:=0; a:=0;
writeln('dlina stroki:',length(s));
for i:=1 to length(s) do begin
if (ord(s[i])=65) or (ord(s[i])=97) or (ord(s[i])=128) or (ord(s[i])=160) then inc(k);
if (s[i]=' ')and(a=0) then a:=i; end;
writeln('kolishectvo bukv «à»:',k);
for i:=a+1 to length(s) do
if (s[i]<>' ') then writeln(s[i])
else break;
readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.