|
Вопрос # 4 832/ вопрос решён / |
|
Здравствуйте, уважаемые эксперты. помогите пожалуйста разобраться с задачей... Дано число N. необходимо вывести предыдущие 3 перед соответствующим N из таблицы ASCII. заранее спасибо
 |
Вопрос задал: NeStor (статус: Посетитель)
Вопрос отправлен: 18 декабря 2010, 16:28
Состояние вопроса: решён, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
var
C: Char;
begin
for C:= Char(N - 1) downto Char(N - 3) do
begin
WriteLn(C);
if C = #0
then Break;
end;
end;
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 18 декабря 2010, 16:37
Оценка за ответ: 5
Комментарий к оценке: спасибо большое, вы мне очень помогли
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 19 декабря 2010, 06:30; участников в обсуждении: 2.
|
|
NeStor (статус: Посетитель), 18 декабря 2010, 22:00 [#1]:
а какой-нибудь модуль нужно добавлять для корректного вывода данных?
|
|
|
min@y™ (статус: Доктор наук), 19 декабря 2010, 06:30 [#2]:
Цитата (NeStor):
а какой-нибудь модуль нужно добавлять для корректного вывода данных?
Я ж пример написал. Если прога неконсольная, то надо мозг включать.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
20 декабря 2010, 10:01: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
