Ведите два числа например а=45 и b=8 и найдите их частное от деления нацело в переменной а, используя только операцию вычитания.

Не уверен, но надеюсь правильно) var a,b,cmod,cdiv: integer; begin readln(a); readln(b); cmod: =a; cdiv: =0; repeatcmod: =cmod-b; inc(cdiv); until cmod< b; writeln(cdiv,' ',cmod); readln; end.

Блин! начал писать программу, а комп поэтому uses crt; var i, n, m, z1, z2 : integer; begin   clrscr;   write (' n = ');   readln(n);   writeln;   if (n< 0) or (n> 18) then writeln (' none! ')   else begin           for i: =11 to 99 do                 begin                     m: =i;                     z1: =m div 10;                     z2: =m mod 10;                     if (z1+z2=n) then writeln(' m = ', m);                 end;           end;   readln; end.

Const   n = 8;   nmax = 32767; var   a: array[1..n] of integer;   i, t, min: integer; begin   min : = nmax;   for i : = 1 to n do   begin       read(t); a[i] : = t;       if (t > 0) and (t mod 2 = 0) then           if min > t then min : = t   end;   if min < > nmax then       writeln('минимальный положительный четный элемент равен ', min)   else       writeln('в массиве нет четных положительных элементов') end. тестовое решение: 353 638 -1000 -452 320 -18 19 0 минимальный положительный четный элемент равен 320