Пользуясь кодовой страницей windows - 1251 таблицы кодировки ascii, получить шестнадцатеричный код слова информатизация

C8 cd d4 ce d0 cc c0 d2 c8 c7 c0 d6 c8 df учитывая, что тут больше ff не будет (256 символов, включая нулевой), можно убрать пробелы =)

ответ:

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.

объяснение: