Ни как надо переписывать
не ленись бро : )
Ответ:
program test01;
var a, b, rezult: integer;
begin
a:=6;
b:=3;
rezult:= a div b;
writeln ('rezult = ', rezult);
end.
Объяснение:
C=A/B
C=26/2
C=13
Просто и легко
Var a,b:integer;
x:real;
begin
writeln ('введи числа a и b');
readln (a,b);
if a=0 then writeln ('No')
else begin
x:=b/(-1*a);
writeln (x:5:2);
end;
end.
Я не представляю чисто с математической точки зрения, как тут может быть несколько вариантов, а уж тем более множество. Если приведешь примеры, я перепишу код