Срочно, помогите, проошууу, номер 4.23 под (а)

Question

Срочно, помогите, проошууу, номер 4.23 под (а)

---

Comments

это нужно программу составить? для qbasic?

---

Добрый день!Дополните задание, не видно куска.

---

все видно, нужно только номер 4.23

---

А, точно. Сейчас сделаю

---

нужно для devC++

Answer 1

Var a,a1,a2: integer;
begin
write ('Введите двузначное число: '); read (a);
a1:=a div 10;
a2:=a mod 10;
if (a1>a2) then writeln ('Первая цифра ',a1, ' больше второй цифры ',a2);
if (a2>a1) then writeln ('Вторая цифра ',a2, ' больше первой цифры ',a1);
if (a1=a2) then writeln ('Цифры одинаковые.');
end.