write(039;Вы желаете покинуть программку? Если да-нажмите 1, если нет- нажмите

write('Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите Хоть какое ЧИСЛО ');
read(i);
until a=1;
write('Программа завершена. Спасибо за внедрение');
end.
ОТРЕДАКТИРУЙТЕ ПОЖАЛУЙСТА Чтоб Производилось

Задать свой вопрос
1 ответ
Var a:integer;
begin
repeat
write('Вы желаете покинуть программку? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО ');
readln(a); 
until a=1; 
write('Программка завершена. Спасибо за внедрение');
end.

Пример:
Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите Хоть какое ЧИСЛО 3
Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите Хоть какое ЧИСЛО 1
Программка завершена. Спасибо за использование
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт