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

Question

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

Comments

в паскале?

---

да

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.