Составить программу определения, заданное число а делится на 2,3 или 5. Определить на которое делится
Составить программу определения, заданное число а делится на 2,3 или 5. Определить на которое делится
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы