Задайте пользователю вопрос, требующий однозначного от Проверьте его правильность - Pascal ABC
Формулировка задачи:
Задайте пользователю вопрос, требующий однозначного от Проверьте его правильность. Дайте по ю несколько подсказок и попыток. Если он угадал, то спросите его имя, и выведите на экран поздравление, являющееся нацией нескольких строк, дважды употребив его имя.
Решение задачи: «Задайте пользователю вопрос, требующий однозначного от Проверьте его правильность»
textual
Листинг программы
var sn:string; a:integer; begin repeat write('довольны ли вы своей заработной платой(1-да/2-нет)?'); readln(a); if a<>1 then writeln('Пожалуйста, подумайте хорошенько!'); until a=1; write('Введите Ваше имя:');readln(sn); sn:=sn+', Поздравляем! '+sn+', мы ничуть не сомневались в этом!'; writeln(sn); readln; end.
Объяснение кода листинга программы
- var
- sn:string;
- a:integer;
- begin
- repeat
- write('довольны ли вы своей заработной платой(1-да/2-нет)?');
- readln(a);
- if a<>1 then writeln('Пожалуйста, подумайте хорошенько!');
- until a=1;
- write('Введите Ваше имя:');readln(sn);
- sn:=sn+', Поздравляем! '+sn+', мы ничуть не сомневались в этом!';
- writeln(sn);
- readln;
- end.