Дано целое число X. Определить кратно ли оно 2, 3 и целому числу P. в Пааскале!! помогите...

Question

Дано целое число X. Определить кратно ли оно 2, 3 и целому числу P. в Пааскале!! помогите пожалуйста

Answer 1

Pascal ABC.NET  beginVar a:=ReadInteger('Введите число');Var p:=ReadInteger('Введите p');if a mod 2=0 then writeln('Кратно двум');if a mod 3=0 then writeln('Кратно трем');if a mod p=0 then writeln('Кратно p');end.

Comments

begin
Var a:=ReadInteger('Введите число');
Var p:=ReadInteger('Введите p');
if a mod 2=0 then writeln('Кратно двум');
if a mod 3=0 then writeln('Кратно трем');
if a mod p=0 then writeln('Кратно p');
end.