Урок 12.1 Задача 3
Primary tabs
Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.
program project1; var ch:char; begin repeat write('Vvedite simvol: ');readln(ch); writeln('&'); if(ch='#')then exit; until (ch='#'); readln(); end.
- Log in to post comments
- 545 reads
vedro-compota
Wed, 09/22/2021 - 22:23
Permalink
write('Vvedite simvol: ')
-- если '#' завершать сразу, без вывода символа
_____________
матфак вгу и остальная классика =)