Помогите написать программу проверяющую верное утверждение что введенное вами число делится на 3 без остатка.

Question

Информатика

Денисия

2 августа, 03:05

Помогите написать программу проверяющую верное утверждение что введенное вами число делится на 3 без остатка.

+3

Ответы (1)

Знаете ответ на вопрос?

Ариша · Answer 1

Program L;

uses crt;

var x:integer;

begin

write (' x=') ; readln (x) ;

if (x mod 3) = 0 then writeln ('x=', x,' делется нацело на 3')

else writeln ('x=', x,' не делется нацело на 3')

end.