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

Question

Информатика

Ананий

15 августа, 05:54

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

+1

Ответы (1)

Знаете ответ на вопрос?

Виленин · Answer 1

Решение задачи для целых чисел:

program chisla;

var a, b: integer;

begin

write ('a=') ; readln (a) ;

write ('b=') ; readln (b) ;

if (a mod b = 0) or (b mod a=0)

theh write ('делятся')

else write ('не делятся')

end.