Question

Написать программу, которая разрешает вводить с клавиатуры двузначное число N. Вывести на экран N^2, если число имеет две одинаковые цифры и N/2 у противоположном случае. Условие окончания программы - ввод однозначного числа. Сообщения про некорректность данных вывести красным цветом, а про окончание работы программы - зеленым.

Answer 1

uses Crt;
Var
   N,A:integer;
Begin
TextColor(15);
Repeat
ClrScr;
Write('N = ');ReadLn(N);
A:=Abs(N);
if A > 9 then
   Begin
   if A > 99 then
      Begin
      ClrScr;
      TextColor(12);
      Write('(!!!) -99 <= N <= 99 (!!!) ');
      TextColor(15);
      End
   else
      if A div 10 = A mod 10 then WriteLn('N^2 = ',A*A)
      else WriteLn('N/2 = ',N/2)
   End;
Delay(1300);
Until A < 10;
TextColor(10);
Write('BbIXOD');ReadKey
End.