Question

Напишите на языке Паскаля.
Дано число. Является ли оно двухзначным чётным,кратное трём

Answer 1

var a:integer;
readln(a);
If (a<100) and (a>9) then writeln ('двух значное');
If a mod 2 = 0 then writeln('четное');
If a mod 3 = 0 then writeln ('кратное');
end.

Answer 2

Ты забыл "a>9" :)))

Answer 3

Точно спасибо

Answer 4

Спасибо вам огромное

Answer 5

Не за что.

Answer 6

,HEuronYA

Answer 7

var n:integer;
begin
readln(n);
if (n<=99) and (n>=10) and (n mod 6 = 0) then write('является')
else write('не является');
end.