Составить программу на задачу: Определить, делителем каких чисел a, b, c является число к.

Question

Информатика

Декабрист

3 ноября, 21:01

Составить программу на задачу: Определить, делителем каких чисел a, b, c является число к.

+4

Ответы (1)

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

Венедиктыч · Answer 1

program p;

var a, b, c, k: integer;

begin

writeln ("Введите a, b, c, k: ") ; readln (a, b, c, k) ;

if (a mod k) = 0 then writeln ("K является делителем A") ;

if (b mod k) = 0 then writeln ("K является делителем B") ;

if (c mod k) = 0 then writeln ("K является делителем C") ;

readln; end.