Напишите программы которые определяют 1)что число нечетное и делится ** 3; 2)число...

Question

Напишите программы которые определяют
1)что число нечетное и делится на 3;
2)число делится на 4 и оканчивается на 2.

Comments

Паскаль?

---

да

Answer 1

1)

Program n1;
var a: integer;
begin
readln(a);
if (a mod 2<>0) and (a mod 3=0) then write('1)true') else write('1)false');
end.

2)

Program n1;
var a: integer;
begin
readln(a);
if (a mod 4=0) and (a mod 10=2) then write('2)true') else write('2)false');
end.

Comments

Можно гораздо короче условия записать))) WriteLn('1) ',(a mod 2<>0) and (a mod 3=0))