Question

ПОМОГИТЕ РЕШИТЬ, НА ЛАБЕ СИЖУ!!!
Определить делится ли на целое число х целое число у без остатка. Если делится, то разделить х на у и вывести его. В турбо паскале програмку написать.

Answer 1

program del;
var x, y: integer;
d: real;
begin
read(x); read(y);
if x mod y = 0 then d:= x/y;
write (d);
end. 

Answer 2

давай попробую