Был в тридесятом королевстве пруд, в центре которого рос один лист водяной линии.каждый день число таких листьев удваивалось , и на десятый день вся поверхность пруда уже была заполнена листьями лилии.сколько дней понадобилось, чтобы заполнить листьями половину пруда?

На 9 день было половина пруда. на 10 листья заполнили в два раза больше- весь пруд. ответ 9

Всего понадобилась 5 дне

ответ:

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 - выхода из цикла в случае правильного ответа

ответ:

var

    a1, a2, a3: integer;

 

begin

    write ('введите три числа: ');

    readln (a1, a2, a3);

 

    if ((a1 > a2) and (a1 < a3)) or ((a1 < a2) and (a1 > a3)) then

        writeln(a1)

    else

        if ((a2 > a1) and (a2 < a3)) or ((a2 < a1) and (a2 > a3)) then

            writeln(a2)

        else

            writeln(a3);

 

end.

объяснение: