Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Помогите, пожалуйста, решить задачу   Найти похожие ветки 

 
Skype ©   (2010-02-17 21:36) [0]

ВОт задача:
Надо найти минимальное неотрицательное число, которое надо прибавить к числу 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.

но мне надо на делфи. помогите, пожалуйста


 
Игорь Шевченко ©   (2010-02-17 21:42) [1]


> я написал на паскале:


> но мне надо на делфи


в чем разница ?


 
Jeer ©   (2010-02-17 21:45) [2]

в количестве "букф"



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.075 c
2-1273851859
Shurick
2010-05-14 19:44
2010.08.27
Графика


15-1273239416
Kerk
2010-05-07 17:36
2010.08.27
Да здравствует копирайт!


2-1269407580
fiascko
2010-03-24 08:13
2010.08.27
обработка сообщения из файла


15-1274278041
Неокубинец
2010-05-19 18:07
2010.08.27
Неокуб своими руками? :)


2-1268318095
rust-02
2010-03-11 17:34
2010.08.27
Нужно считать текстовой файл до определённых слов. delphi