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

Напишите на языке Паскаля. Дано число. Является ли оно двухзначным чётным,кратное трём
Гость
Ответ(ы) на вопрос:
Гость
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.
Гость
var n:integer; begin readln(n); if (n<=99) and (n>=10) and (n mod 6 = 0) then write('является') else write('не является'); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы