Проверьте, делится ли выбранное число на 5, на 11 или 13

нужно сделать в Pascal ABC

Question

Информатика

Витаня

10 мая, 17:10

Проверьте, делится ли выбранное число на 5, на 11 или 13

нужно сделать в Pascal ABC

+1

Ответы (1)

Знаете ответ?

Дика · Answer 1

Var a:integer;

begin

writeln ('Введите число') ;

readln (a) ;

if (a mod 5=0) then writeln ('Число ', a,' делится на число 5')

else writeln ('Число ', a,' не делится на число 5') ;

if (a mod 11=0) then writeln ('Число ', a,' делится на число 11')

else writeln ('Число ', a,' не делится на число 11') ;

if (a mod 13=0) then writeln ('Число ', a,' делится на число 13')

else writeln ('Число ', a,' не делится на число 13') ;

end.

Проверьте, делится ли выбранное число на 5, на 11 или 13нужно сделать в Pascal ABC

Проверьте, делится ли выбранное число на 5, на 11 или 13

нужно сделать в Pascal ABC