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

Question

Информатика

Людуся

25 ноября, 03:11

Помогите написать программу проверяющую верное утверждение что введенное вами число делится на 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.