Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.068 c
2-1270538489
istok
2010-04-06 11:21
2010.08.27
TTimer в Delphi2010


4-1226752749
VolMyr
2008-11-15 15:39
2010.08.27
хук на интернет адрес


3-1239972881
Виталий Панасенко
2009-04-17 16:54
2010.08.27
Ошибка при выполнении ХП


15-1273161371
Jalevis
2010-05-06 19:56
2010.08.27
ни один проект не запускается из Дельфей


2-1271934182
Константин
2010-04-22 15:03
2010.08.27
Как удалть объёкты из TObjectList и не уменьшишь при этом ....




   Наверх