Закрывается консоль, несмотря на readln(); - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, появилась такая проблема
program Project1;
 
 var
   i,j,k:integer;
begin
read(i);
read(j);   //если вместо этого написать readln консоль подождет
writeln(i, '  ', j);
readln();// захлопывается если не задвоить readln
end.
Вроде как readln() стоит, а консоль все равно захлопывается, в ходе натурных экспериментов удалось выяснить , что если задвоить в конце Readln() или вместо последнего read написать readln, консоль подождет. Но, если написать сколь угодно много read() в конце, консоли будет все равно, она захлопнется
program Project1;
 var
   i,j,k:integer;
begin
read(i);
read(j);
writeln(i, '  ', j);
read();
read(); //захлопывается
end.
Где-то на подкорке после всех этих экспериментов я понимаю как работает, но вразумительного объяснения у меня нет почему происходит так, может кто-то подскажет?

Решение задачи: «Закрывается консоль, несмотря на readln();»

textual
Листинг программы
ReadLn(число);

Объяснение кода листинга программы

  1. Закрывается консоль;
  2. Вводится число;
  3. Результат не сохраняется ни в одной переменной;
  4. Программа завершается.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы