Question

Срочно!!написать программу в паскале,которая проверяет, делится ли число на 3 и заканчивается ли при этом 9

Answer 1

var

x : integer;

begin

readln(x);

if (x mod 3 = 0) and (x mod 10 = 9) then

   writeln('Число делится на 3 и оканчивается на 9!')

else

   writeln('Число не подходит под заданные условия!');

end.

Answer 2

Ответ:

var x: integer;

begin

readln(x);

writeln((x mod 3 = 0) and (x mod 10 = 9));

end.

//программа выведет 'true' если условие выполняется и 'false' если нет