VPF::помогите с программой - Форум программистов

Асканио

Дата 20.1.2009, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 20.1.2009

Репутация: нет
Всего: нет

вот короче задача

написать программу которая полученное трехзначное число выдает в обратном порядке.

Буду очень благодарен, если поможете!

Если что мой icq 256554081

Metalex

Дата 21.1.2009, 21:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

Код


Program Peremina;
 Var a,b,c,k:integer;
Begin
 a:=0; b:=0; c:=0;
 readln (k);

 repeat
 k:=k-100;
 a:=a+1;
 until k<100;

 repeat
 k:=k-10;
 b:=b+1;
 until k<10;

 c:=k;

 k:=c*100+b*10+a;

 writeln (k);
 readln
 end.

Это сообщение отредактировал(а) volvo877 - 22.1.2009, 00:32

--------------------

Don't let the system get you down.

Асканио

Дата 21.1.2009, 21:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 20.1.2009

Репутация: нет
Всего: нет

Спасибо огромное=)ОЧЕНЬ тебе признателен

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »