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

@саша 1.9.9.4 · Регистрация: 17.05.2011

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

@S9 · 04.06.2011, 02:53

Вроде работает) Правильно. Просто переводим число в строку и переворачиваем её. Я взял готовую функцию отсюда.Спасибо TAVulator

Pascal

Var
    int,i:Integer;
    s,Temp:String;
Begin
ReadLn(int);
STR(int,s);
Temp:='';
    For i:=Length(s) DownTo 1 Do
        Temp:=Temp + s[i];
WriteLn(Temp);
ReadLn;
End.

@саша 1.9.9.4 5 / 5 / 0 Регистрация: 17.05.2011 Сообщений: 53
		1
	Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа на лево). 03.06.2011, 23:31. Показов 2133. Ответов 1 Метки нет (Все метки) Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа на лево). 0

	04.06.2011, 02:53

Опции темы

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

Решение