Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Информатика програмирование составить программу признаки делимости на 3 , 5 , 9 , 10 , 11

Ответ оставил Гость

Var
a:longint;
begin
readln(a);
k:=a mod 3;
If k=0 then writeln(Число делиться на 3)
else
writeln(Число не делиться на 3);
k:=a mod 5;
If k=0 then writeln(Число делиться на 5)
else
writeln(Число не делиться на 5);
k:=a mod 9;
If k=0 then writeln(Число делиться на 9)
else
writeln(Число не делиться на 9);
k:=a mod 10;
If k=0 then writeln(Число делиться на 10)
else
writeln(Число не делиться на 10);
k:=a mod 11;
If k=0 then writeln(Число делиться на 11)
else
writeln(Число не делиться на 11);
end.