Напишите программу для решения задачиОпределить является ли данное число n чётным...

Question

Напишите программу для решения задачи
Определить является ли данное число n чётным двухзначным числом

Comments

Написать на Pascal?

---

Да

Answer 1

Var
    n: integer;

begin
    readln(n);
    writeln((n mod 2 = 0) and (n div 10 > 0) and (n div 100 = 0));
end.

Answer 2

Var
     n,
     check_n,
     : integer;
     flag : boolean;
Begin
     write('Введите чило');
     readln(n);
   
{Проверяется, является ли n четным}
     if n mod 2 = 0
          then
               flag = true;
          else
               flag = false;
     
{Проверяется, является ли n двухзначным}
     if n div 10 <> 0
          then
               flag = true;
          else
               flag = false;

     if flag
          then
                writeln('Число ', n, ' является четным двухзначным');
          else
               writeln('Число ', n, ' не является четным двухзначным');
End.

Comments

в первмо if не n mod 10, а n mod 2!

---

так исправь

---

Я хотел, но пока ты не прокоментировала, кнопки "изменить" не было.

---

надо было просто обновить страницу