1.
var s: string;
begin
write('Введите слово: ');
readln(s);
while (s<>'хватит') do
begin
writeln(s+'!');
write('Введите слово: ');
readln(s);
end;
writeln('До следующих встреч');
end.
2.
var i,n,max,min: integer;
begin
randomize();
n:=random(201)-100;
max:=n;
min:=n;
write(n,' ');
For i:= 2 to 20 do
begin
n:=random(201)-100;
write(n,' ');
if (n>max) then max:=n;
if (n<min) then min:=n;
end;
writeln('Наибольшее число: ',max);
writeln('Наименьшее число: ',min);
end.
Начальное число — 5
Выполняем команды:
Первая команда — 5 + 1 = 6. Потом у нас идут три двойки. Это значит, что мы три раза подставляем какое-то число b к концу текущего (к концу 6). Т.к. в результате мы видим, что после шести у нас стоит две пятерки, это значит, что к шести доставили две пятерки. Третья команда — 2, но после нее идет единица, что говорит о том, что сначала в конец поставляется число b и потом все число увеличивается на единицу. Смотрим: в конце полученного числа стоит шесть. Если убрать единицу, то будет пять, что говорит о том, что число b равно пяти.
ответ: b = 5