Блог

Главная - Вопросы по программированию - Деление на Паскале без остатка

Деление на Паскале без остатка

#pascal #division

#паскаль #деление

Вопрос:

Напишите программу, которая вернет 1, если m делится на n без остатка, и 0, если нет.

 program Division;
var m, n:longint;
begin
   readln(m, n);  
   writeln(5 mod 4);
   writeln((1-(n mod m)div 2));
end.

Комментарии:

1. Writeln(Ord(n mod m = 0)) или if n mod m = 0 then Writeln(1) else Writeln(0)

Ответ №1:

 program Division;
var n, m: integer;
begin
    readln(n,m);
    writeln (1 - (n mod m   1) div 2 mod 2);
end.