Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

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

Boriss Статус: Академик Рейтинг: 1618 ∙ повысить рейтинг »

_Ayl_ Статус: Студент Рейтинг: 1418 ∙ повысить рейтинг »

Micren Статус: Профессионал Рейтинг: 1410 ∙ повысить рейтинг »

Вопрос № 175735: Помогите пожалуйста с задачками: 1)Добавить к целому положительному числу слева заданную цифру 2)Найти к-ую цифру целого положительного числа (при нумерации цифр в числе справа налево).Если количество цифр в числе меньше к, выдать об этом сообщ...

Помогите пожалуйста с задачками:
1)Добавить к целому положительному числу слева заданную цифру
2)Найти к-ую цифру целого положительного числа (при нумерации цифр в числе справа налево).Если количество цифр в числе меньше к, выдать об этом сообщение

очень жду ответа

Отправлен: 30.12.2009, 04:16
Вопрос задал: angel.nero, Посетитель
Всего ответов: 2
Страница вопроса »

Приложение:
1)Добавить к целому положительному числу слева заданную цифру uses crt; var a,b,k:longint; begin clrscr; repeat write(\'Введите целое положительное число не более 99 999 999 a=\');{чтобы при вводе цифры не получить число, выходящее за предел типа longint} readln(a); until (a>0)and(a<100000000); repeat write(\'Введите цифру, которую добавить слева от 1 до 9 k=\'); readln(k); until k in [1..9]; b:=a;{запомним число} while a>0 do{пока число не ноль} begin a:=a div 10;{делим его на 10, считаем разряды} k:=k*10;{цифру умножаем на 10, повышаем разряд} end; b:=k+b;{прибавляем к числу} write(b); readln end. 2)Найти к-ую цифру целого положительного числа (при нумерации цифр в числе справа налево).Если количество цифр в числе меньше к, выдать об этом сообщение uses crt; var a:longint; k,i,c:byte; begin clrscr; repeat write(\'Введите целое положительное число a=\'); readln(a); until a>0; repeat write(\'Введите нoмер цифры справа от 1 до 9 k=\'); readln(k); until k in [1..9]; c:=0; while (a>0)and(c<k) do{пока число не ноль и номер цифры справа меньше заданного} begin i:=a mod 10;{отделяем справа цифры} c:=c+1;{считаем} a:=a div 10;{берем число без последней цифры и все повторяем} end; if (a=0) and (c<k) then write(\'В числе нет \',k,\' цифр!\'){если "разобрали" число и в нем нет столько цифр} else write(\'Цифра № \',k,\'=\',i); readln end. 2)Найти к-ую цифру целого положительного числа (при нумерации цифр в числе справа налево).Если количество цифр в числе меньше к, выдать об этом сообщение uses crt; var a:longint; k,i,c:byte; begin clrscr; repeat write(\'Введите целое положительное число a=\'); readln(a); until a>0; repeat write(\'Введите нoмер цифры справа от 1 до 9 k=\'); readln(k); until k in [1..9]; c:=0; while (a>0)and(c<k) do{пока число не ноль и номер цифры справа меньше заданного} begin i:=a mod 10;{отделяем справа цифры} c:=c+1;{считаем} a:=a div 10;{берем число без последней цифры и все повторяем} end; if (a=0) and (c<k) then write(\'В числе нет \',k,\' цифр!\'){если "разобрали" число и в нем нет столько цифр} else write(\'Цифра № \',k,\'=\',i); readln end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 30.12.2009, 06:50

Оценка ответа: 5

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258255 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает Колесников Иван Владимирович, 4-й класс :
Здравствуйте, angel.nero!
Ответы в приложении

Приложение:
1) k := k * 10 + d k - число d - цифра 2) for i := 1 to k do n := n div 10; n := n mod 10; i - целочисленная переменная k - номер цифры (нумерация от 0) n - на входе число, на выходе k-ая цифры.

Ответ отправил: Колесников Иван Владимирович, 4-й класс
Ответ отправлен: 30.12.2009, 14:12

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258274 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

Задать вопрос экспертам этой рассылки »