Question

Вот кусочек программы , как сделать так что бы после if A=B then begin writeln('.....'); end программа не останавливалась Program BOOM ; var A,B:integer; begin writeln(' .....'); readln(A); writeln(' ...... '); readln(B); if A=B then begin writeln('.....'); end else begin writeln(' .....'); readln(B);

Answer 1

Если после Begin идёт всего одна строка кода, то end; ( энд точка с запятой) после неё ставить не обязательно. Программа может остановиться только после end. (Энд с точкой)

Answer 2

Для того чтобы программа не останавливалась после выполнения условия if A=B then begin writeln('.....'); end, можно добавить дополнительный код, который будет выполняться после выполнения условия.

Например, можно добавить следующий код после условия:

writeln('Продолжение программы...'); readln;

Этот код позволит программе продолжить выполнение после выполнения условия, даже если условие не будет выполнено.