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

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

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

Решение:

program u12z03;
var i:char;
begin
  repeat
    writeln('vvedite simvol');
    readln(i);
    if (i<>'#') then
      writeln('&');
  until (i='#');
  writeln('Poka');
  readln();
end.

Консоль:

vvedite simvol
5
&
vvedite simvol
f
&
vvedite simvol
*
&
vvedite simvol
#
&
Poka