Задача 3 Урок 12.1 Repeat/Until
Primary tabs
{12-1.3 Пользователь вводит в консоль символы (после каждого нажимая Enter),
в ответ выводите символ '&', до тех пор пока пользователь не введёт '#',
после чего завершите программу.}
var a:char; begin repeat write('write your symbol '); readln(a); writeln('&'); until (a = '#'); write('over'); readln(); end.
- Log in to post comments
- 1030 reads