Урок 12.1 Задача 3

Урок 12.1 Задача 3

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

  program project1;
  var ch:char;

  begin
    repeat
      write('Vvedite simvol: ');readln(ch);
      writeln('&');
      if(ch='#')then
        exit;
    until (ch='#');
  readln();
  end. 
vedro-compota's picture

write('Vvedite simvol: ');readln(ch);
    writeln('&');
    if(ch='#')then
      exit;

-- если '#' завершать сразу, без вывода символа

_____________
матфак вгу и остальная классика =)