Урок 12.1. Задача 5.
Primary tabs
Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу (не выводя ничего в ответ).
var a : char; x : boolean; begin x := true; repeat readln(a); if (a = '#') then x := false else writeln('&'); until (x = false); readln(); end.
- Log in to post comments
- 162 reads