Question

Заданы два числа. Напишите программу для нахождения частного от деления первого числа на второе и округлите результат до ближайшего целого
ПаскальАВС

Answer 1

var a,b,c:real;

begin

write('Первое число:',' ');

readln(a);

write('Второе число:',' ');

readln(b);

c:=a/b;

writeln('Частное:',' ',c);

end.