Ответ: "о"
программирование
п о р м и о а и
иаоимроп
и о м о
омои
о о
оо
о
Function StRevers(St : String) : String;
Begin
If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
else StRevers:=St;
end;
Function Del2(st : String) : String;
Begin
If Length(st)>0 then Del2:=st[1]+Del2(Copy(st,3,Length(st)-2)) else Del2:='';
end;
Var
S : String;
Begin
S:='программирование';
While Length(S)>1 do S:=StRevers(Del2(S));
Writeln(S);
end.
const nx = 30; mx = 30; var i,j,m,n,k,qi,qj:integer; D:array[1..nx,1..mx] of real; min:real; begin min:= 30.0; writeln('Введите n и m'); Readln(n,m); for i:= 1 to n do begin for j:= 1 to m do begin D[i,j] := random()*20 -10; write(D[i,j]:6:2); if D[i,j]< 0 then k:= k + 1; if min > D[i,j] then begin min := D[i,j];qi:=i;qj:=j; end; end; writeln; end; Writeln('минимальный элемент матрицы ',min); Writeln('номер строки ',qi); Writeln('номер столбца',qj); Writeln('количество отрицательных элементов матрицы',k); end.
1) МОЛОКО: не в бутылке (по условию задачи); не в стакане, т.к. "<span>стакан </span><span>стоит </span>между <span>банкой и сосудом с </span>молоком"; не в банке, потому что: "между банкой и<span> сосудом с </span>молоком<span>"; отсюда следует, что </span>МОЛОКО В КУВШИНЕ.
<span>2) ВОДА: не в кувшине (там молоко), не в бутылке (по условию задачи), не в банке (по условию задачи); получается, что ВОДА В СТАКАНЕ.
3) ЛИМОНАД: не кувшине (там молоко); не в стакане (там вода); не в кувшине, т.к. "сосуд с лимонадом стоит между кувшином и.."; получается, что ЛИМОНАД В БУТЫЛКЕ.
4) КВАС В БАНКЕ.
Ответ: в бутылке лимонад, в стакане вода, в кувшине молоко, в банке квас.</span>
Ответ:
Рабочее поле-отображает место на рабочем поле,Сохранить-команды Записи текста в память,Вставить-Команды для написания текста,Курсор-Команды Записи текста в память,Строка меню,Меню специальных команд и действий
