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

Question

Информатика

Эдуард

4 сентября, 06:43

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

+5

Ответы (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.