Помогите,дам все сови баллы: Написать программу котораяопределяет является ли число...

Question

Помогите,дам все сови баллы:
Написать программу котораяопределяет является ли число четнымили его запись окончательно целая 7

Answer 1

Var
num: integer;
begin
read(num);
if num mod 2 = 0 then write('Число четное') else write('Число нечетное');
end.

Comments

Подожди

---

Что надо было сделать

---

при чем там 7?

---

Да я сам хз так в эл написано :D

---

Вот и думаю как это делать)

---

И спасиб

---

Я написал программу, которая определяет четное число или нет

Answer 2

Var
  n:integer;

begin
  Write('n = '); Read(n);
  if (n mod 2=0) then Writeln('Число четное')
  else begin
    Write('Число нечетное и оно ');
    if Abs(n mod 10)<>7 then Write('не ');
    Writeln('оканчивается цифрой 7')
    end
end.

Примеры
n = 3538
Число четное

n = 642301
Число нечетное и оно не оканчивается цифрой 7

n = 6306547
Число нечетное и оно оканчивается цифрой 7

n = -546347
Число нечетное и оно оканчивается цифрой 7