Задание 3 Урок 12.1

Primary tabs

Submitted by Dobrii_kot on Wed, 09/23/2020 - 10:52

Forums:

Задание 3 Урок 12.1

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

var i : char;

begin
  repeat
    write('Введите символ и нажмите ENTER:');
    readln(i);
  until (i = #35);
  write('Программа завершена, нажмите ENTER!');
  readln();
end.
  • Log in to post comments
  • 1109 reads