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

Question

Информатика

Серафима

1 ноября, 03:52

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

+3

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