Надо ввести два числа и программа должна показать делиться ли на друг друга или нет

Question

Информатика

Павлич

24 марта, 02:40

Надо ввести два числа и программа должна показать делиться ли на друг друга или нет

+4

Ответы (1)

Знаете ответ?

Грунятка · Answer 1

Pascal

Program determiner;

Var a, b, c: real;

Begin

Readln (a, b) ;

C:=0;

If (a > b) then

Begin

If (a mod b = c) then

Writeln ('Yes')

Else writeln ('No')

End

Else begin

If (b mod a = c) then

Writeln ('Yes')

Else writeln ('No) ;

End;

End.