Пожалуста помгите решить задачу по поскале abc

Составить программу рассёчата отнашения чисел а и б с округлением результата.

1

Ответы и объяснения

2013-01-11T00:50:13+04:00

program otnoshenie;

 

uses Crt;

 

var
a,b:integer;


begin
write('a=');
readln(a);
write('b=');
readln(b);
if (a<>0) and (b<>0) then
begin
writeln('a/b=',round(a/b));
writeln('b/a=',round(b/a));
end else
writeln('Ошибка ввода');

end;