Question

Запишите на языке Pascal. x>0, y≤5. Величина x - четная. Величина x - нечётная. X кратно 3. X делится без остатка на 2 и на 3. X не делится на 5

Answer 1

If x > 0 then ...
if y <= 5 then ...
if x mod 2 = 0 then ...
if x mod 2 <> 0 then ...
if x mod 3 = 0 then ...
if (x mod 2 = 0) and (x mod 3 = 0) then...
if (x mod 5 <> 0) then ...

Answer 2

Привет! Вот решение на языке Pascal:

var x, y: integer;

begin write('Введите значение x: '); readln(x);

write('Введите значение y: '); readln(y);

if (x > 0) and (y <= 5) then begin if (x mod 2 = 0) then writeln('Величина x является четной');

if (x mod 2 <> 0) then writeln('Величина x является нечетной');

if (x mod 3 = 0) then writeln('Величина x кратна 3');

if (x mod 2 = 0) and (x mod 3 = 0) then writeln('Величина x делится без остатка на 2 и на 3');

if (x mod 5 <> 0) then writeln('Величина x не делится без остатка на 5'); end else writeln('Условия не выполнены'); end.

В этой программе пользователь вводит значения x и y. Затем проверяются условия и выводится соответствующее сообщение о каждом из условий:

- Величина x является четной, если она делится на 2 без остатка. - Величина x является нечетной, если она не делится на 2 без остатка. - Величина x кратна 3, если она делится на 3 без остатка. - Величина x делится без остатка на 2 и на 3, если она делится на 2 и на 3 без остатка. - Величина x не делится без остатка на 5, если она не делится на 5 без остатка.

Если условия не выполнены (x ≤ 0 или y > 5), программа выводит сообщение "Условия не выполнены".