Задайте пользователю вопрос, требующий однозначного от Проверьте его правильность - 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.

Объяснение кода листинга программы

  1. var
  2. sn:string;
  3. a:integer;
  4. begin
  5. repeat
  6. write('довольны ли вы своей заработной платой(1-да/2-нет)?');
  7. readln(a);
  8. if a<>1 then writeln('Пожалуйста, подумайте хорошенько!');
  9. until a=1;
  10. write('Введите Ваше имя:');readln(sn);
  11. sn:=sn+', Поздравляем! '+sn+', мы ничуть не сомневались в этом!';
  12. writeln(sn);
  13. readln;
  14. end.

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы