Составить программу определения, заданное число а делится на 2,3 или 5. Определить на которое делится

Question

Информатика

Серафима

10 декабря, 23:29

Составить программу определения, заданное число а делится на 2,3 или 5. Определить на которое делится

+4

Ответы (1)

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

Афросим · Answer 1

Program pr;

Var

a:integer;

begin

writeln ('Введите число') ;

readln (a) ;

if a mod 2=0 then writeln ('Делится на 2') ;

if a mod 3=0 then writeln ('Делится на 3') ;

if a mod 5=0 then writeln ('Делится на 5') ;

end.