Задача 3 Урок 12.1
Primary tabs
Задача 3 Урок 12.1Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.
var a: char; begin repeat write ('Vvedite simvol: '); readln(a); if a <> '#' then writeln ('&'); until (a = '#'); writeln ('Cikl zaverschen'); readln; end.
- Log in to post comments
- 727 reads