Question

Нужно сделать так, что бы операция:
writeln(s, ', ответь пожалуйста Да или Нет.');
readln(s1);
Повторялась бесконечно до момента ввода слова Да или Нет.
Вот полный код:

var s, s1: string;
begin
writeln('Как тебя зовут?');
readln(s);
writeln('Привет, ', s, '. А ты любишь читать?(Да/Нет).');
readln(s1);
if s1 = 'Да' then
begin
writeln('Хорошо, книга – источник знаний.');
end
else
if s1 = 'Нет' then
begin
writeln('Плохо, нужно читать книги!');
end
else
writeln(s, ', ответь пожалуйста Да или Нет.');
readln(s1);
end.

Answer 1

Ответ:

var s, s1: string;

begin

writeln('Как тебя зовут?');

readln(s);

writeln('Привет, ', s, '. А ты любишь читать?(Да/Нет).');

while true do begin

 readln(s1);

 if s1 = 'Да' then begin

   writeln('Хорошо, книга – источник знаний.');

   break;

 end else if s1 = 'Нет' then begin

   writeln('Плохо, нужно читать книги!');

   break;

 end else

   writeln(s, ', ответь пожалуйста Да или Нет.');

end;

end.

Объяснение:

это один из вариантов - бесконечный цикл с командами break - выхода из цикла в случае правильного ответа