Заданы два натуральных числа N и K. Вычислить остаток от деления первого числа на второе. Входные данные: Входной поток содержит два целых числа N и K (1 меньше = N меньше = 10^100, 1 меньше = K меньше = 10^9) записанные в ...
Заданы два натуральных числа N и K. Вычислить остаток от деления первого числа на второе. Входные данные: Входной поток содержит два целых числа N и K (1 <= N <= 10^100, 1 <= K <= 10^9) записанные в двух отдельных строках. Выходные данные: В выходной поток выведите остаток от деления N на K. Пример входного файла (input.txt): 239 16 Пример выходного файла (output.txt): 15
Гость
Ответ(ы) на вопрос:
ГостьProgram Task;
Var t: Text;
N, K, M: LongInt;
Begin
Assign(t, 'd:\input.txt');
Reset(t);
While Not EOF(t) Do
Begin
Read(t, N);
Read(t, K);
End;
If (N < 1) Or (N > Exp(100 * Ln(10))) Or (K < 1) Or (K > Exp(9 * Ln(10))) Then
WriteLn('Input error!')
Else
Begin
M := N Mod K;
Assign(t, 'd:\output.txt');
Rewrite(t);
Write(t, M);
Close(t);
Write('Done.');
End;
ReadLn;
End.
Не нашли ответ?
Похожие вопросы