write('Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО '); read(i); until a=1; write('Программа завершена. Спасибо за использование'); end. ОТРЕДАКТИРУЙТЕ ПОЖАЛУЙСТА ЧТОБЫ ВЫПОЛНЯЛОСЬ
Var a:integer; begin repeat write('Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО '); readln(a); until a=1; write('Программа завершена. Спасибо за использование'); end.
Пример: Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО 3 Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО 1 Программа завершена. Спасибо за использование
Answers & Comments
Verified answer
Var a:integer;begin
repeat
write('Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО ');
readln(a);
until a=1;
write('Программа завершена. Спасибо за использование');
end.
Пример:
Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО 3
Вы желаете покинуть программу? Если да-нажмите 1, если нет- нажмите ЛЮБОЕ ЧИСЛО 1
Программа завершена. Спасибо за использование