Question

Хотел сделать продолжение где у человека был бы выбор продолжать ли ему решать или же нет,помогите пожалуйста uses crt; var A,B,C,D : integer; begin write('Введите число: '); readln(A); B:=A mod 2; if B=0 then writeln('число чётное') else writeln('число не чётное'); write('Хотите продолжить?');

Answer 1

Ответ:

uses crt;

var A,B,C,D: integer;

   check: char;

begin

   while True do begin

       write('Введите число: '); readln(A);

       

       B := A mod 2;

       

       if B = 0 then writeln('число чётное')

       else writeln('число нечётное');

   

       write('Хотите продолжить? (y/n): '); readln(check);

       if check <> 'y' then break;

   end;

end.

Answer 2

Конечно, я могу помочь вам добавить выбор продолжения выполнения программы. Вот ваша программа с добавленным выбором:

pascalCopy code
uses crt;

var
  A, B, C, D: integer;
  Choice: char;

begin
  repeat
    clrscr; // Очищаем экран
    write('Введите число: ');
    readln(A);
    B := A mod 2;
    if B = 0 then
      writeln('Число чётное')
    else
      writeln('Число не чётное');

    write('Хотите продолжить (Y/N)? ');
    readln(Choice);
  until (Choice = 'N') or (Choice = 'n');
end.

В этой версии программы после того, как пользователь введет число, программа спросит, хочет ли он продолжить. Если пользователь введет "Y" или "y", программа продолжит выполнение, если "N" или "n", то программа завершится. Вы можете варьировать текстовые сообщения и условия, чтобы сделать программу более информативной или соответствующей вашим потребностям.