| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите, пожалуйста, решить задачу
Skype © (2010-02-17 21:36:00)ВОт задача:
Надо найти минимальное неотрицательное число, которое надо прибавить к числу N, чтобы получившееся число содержало хотя бы одну цифру K.
Формат входных данных
Первая строка входного файла содержит целое неотрицательное число N (0 <= N < 1050). Вторая строка содержит цифру K (0 <= K <= 9).
Формат выходных данных
Вывести единственное неотрицательное целое число - ответ на задачу.
я написал на паскале:
var n,k,i: longint;
begin
readln(n,k);
if (n mod 10)<> k then repeat inc(n); i:=i+1;
until (n mod 10)=k;
write(i);
end.
но мне надо на делфи. помогите, пожалуйста
Jeer (2010-02-17 21:45:00) [1]в количестве "букф"
Игорь Шевченко (2010-02-17 21:42:00) [2]
> я написал на паскале:
> но мне надо на делфи
в чем разница ?
| |
