нужен алгоритм чертёжника в программе кумир

без остатка нет

25: 2=12+1 клетка в остатке

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

первый файл займет 2750/1054 =2,6 = 3 кластера(может быть только целое число кластеров).

второй файл займет 324000/1024 = 307,4 = 308 кластеров.

ответ: 3 + 308 кластеров

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.