Дано целое число. Определить является ли оно кратным 3. (написать программу)

Question

Информатика

Василей

25 ноября, 01:20

Дано целое число. Определить является ли оно кратным 3. (написать программу)

+2

Ответы (2)

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

Адриана · Answer 1

Var a : integer;

begin

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

readln (a) ;

if a mod 3 = 0

then

writeln ('число ', a,' делится на 3')

else

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

end.

Стоян · Answer 2

Program kratnoe3;

var x: integer;

Begin

Writeln ('Введите целое число: ') ;

readln (x) ;

if (x mod 3) = 0 then

Writeln ('Кратно 3-м!')

else

Writeln ('Не кратно 3-м') ; end.