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

Question

Информатика

Альфия

26 сентября, 07:15

Составить программу определения, заданное число а делится на 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.