ПОМОГИТЕ РЕШИТЬ, НА ЛАБЕ СИЖУ!!!Определить делится ли на целое число х целое число у без остатка. Если делится, то разделить х на у и вывести его. В турбо паскале програмку написать.
ПОМОГИТЕ РЕШИТЬ, НА ЛАБЕ СИЖУ!!!
Определить делится ли на целое число х целое число у без остатка. Если делится, то разделить х на у и вывести его. В турбо паскале програмку написать.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы