Заданы два натуральных числа n и k. вычислить остаток от деления первого числа на второе.входные данные: входной поток содержит два целых числа n и k (1 < = n < = 10^100, 1 < = k < = 10^9) записанные в двух отдельных строках.выходные данные: в выходной поток выведите остаток от деления n на k.пример входного файла (input.txt): 239 16 пример выходного файла (output.txt): 15

181

462

Посмотреть ответы 2

Ответы на вопрос:

спирина1

Информатика

4,5(24 оценок)

Type bignum = array[1..100] of integer; var a, b: bignum; i, j, k, n_a, n_b: integer; procedure get_num(var m: bignum; var n: integer); var i : = 0; s: string; begin write('введите число = '); readln(s); s : = trim(s); n : = 0; for i : = length(s) downto 1 do if s[i] in ['0'..'9'] then begin n : = n + 1; m[n] : = strtoint(s[i]); end; end; function more(a, b: bignum; n_a: integer): boolean; var i: integer; f : = false; begin for i : = n_a downto 1 do begin if a[i] > b[i] then f : = true else if a[i] < b[i] then f : = false; if a[i] < > b[i] then break; end; more : = f; end; procedure show(m: bignum; n: integer); var i: integer; begin write('вывод '); for i : = n downto 1 do write(m[i]); writeln(); end; begin get_num(a, n_a); get_num(b, n_b); while (n_a > = n_b) and more(a, b, n_a) do begin if (a[n_a] > b[n_b]) then k : = n_a - n_b else if n_a > n_b then k : = n_a - n_b - 1 else k : = 0; for i : = 1 to n_b do begin a[i + k] : = a[i + k] - b[i]; if a[i + k] < 0 then begin for j : = i + k to n_a - 1 do begin if a[j] > = 0 then break; a[j] : = a[j] + 10; a[j + 1] : = a[j + 1] - 1; end end; end; if a[n_a] = 0 then n_a : = n_a - 1; end; show(a, n_a); end.

IlonaBilash24

Информатика

4,8(52 оценок)

1.информация не зависит от чьего-либо мнения,суждения 3.информация достоверна,если она отрожает истенное положения дел больше не знаю)

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.