Даны целые положительные числа n и k. используя только операции сложения и вычитания, найдите частное от деления нацело n на k, а также остаток от этого деления. ,

Program n1;
var
N, K, i: integer;
begin
readln(N, K);
while (N - K >= 0) do
begin
N := N - K;
i := i+ 1;
end;
writeln('Частное от деления: ',i);
writeln('Остаток: ', N);
end.

Procedure GetAB(x: integer; var a: integer; var b: integer);
begin
    a := 0;
    b := 1;
    while x > 0 do
    begin
        a := a + 1;
        b := b * (x mod 100);
        x := x div 100;
    end;
end;

var
    x, a, b: integer;

begin
    for x := 10000 to 2000000000 do
    begin
        GetAB(x, a, b);
        if (a = 3) and (b = 18) then
            Println(a, b, x);
    end;
end.

выдает такие значения
3 18 10118
3 18 10209
3 18 10306
3 18 10603
3 18 10902
3 18 11801
3 18 20109
3 18 20303
3 18 20901
3 18 30106
3 18 30203
3 18 30302
3 18 30601
3 18 60103
3 18 60301
3 18 90102
3 18 90201
3 18 180101

Выделенное наибольшее

Должны потому что:

1. Сейчас 21 век, вокруг есть компьютеры и их изучение необходимо.

2. Информатика развивает логическое мышление.

3. На информатике можно изучить язык программирования, с него можно писать программы.

4. Изучение программ worl и excel нужны чтобы устроится на работы. Почти везде просят эти знания.

5. Работа программистом востребована в наши дни, за эту работу платят много денег.

Не должны:

1. Можно обойтись и без информатики, например в деревне. Пасти овц и сажать картошку.

2. Хоть программирование не сложнее иностранного языка, он даётся некоторым людям очень тяжело.

3. На уроке информатики даётся не очень много полезной информации, лучше ходить в специальные места для программирования или 3д моделирования.

4. Вместо уроков обучится потом самостоятельно.

5. Если уже знаешь всё и так, можно и не изучать повторно.