Var
a: array[-10..10] of real;
i: integer;
begin
for i := -10 to 10 do begin
Read(a[i]);
a[i] := a[i] / 10;
Write(a[i]+' ');
end;
end.
<em>VAR</em>
<em> s: String;</em>
<em> s1,s2,i: LongInt;</em>
<em>BEGIN</em>
<em> Read(s);</em>
<em />
<em> s1 := 0; s2 := 0;</em>
<em> for i := 1 to Length(s) do begin</em>
<em> if (s[i] = s[1]) then Inc(s1);</em>
<em> if (s[i] = s[Length(s)]) then Inc(s2);</em>
<em> end;</em>
<em />
<em> if (s1 > s2) then Write('Первая буква');</em>
<em> if (s1 < s2) then Write('Последняя буква'); </em>
<em> if (s1 = s2) then Write('Равное количество раз.'); </em>
<em>END.</em>
Например:
-пожар в лесу, в котором сгорают деревья,
-кристаллики снежинок, тающие весной,
-прибрежные скалы, которые со временем подтачивают океанские волны,
-рыба, которую поймал и съел медведь.
Во всех этих случаях, упорядоченные ранее структуры разрушаются, распадаются на составляющие частицы и разносятся в конечном итоге по всей планете а некоторые и дальше.
Микроскоп, бинокль , интернет
<span>Панель задач в Windows нужна для удобства работы с папками и приложениями. На ней постоянно отображаются значки открытых программ и папок, и Вы всегда можете быстро переключиться между приложениями. К тому же на панели предусмотрена панель быстрого вызова. Вы сами формируете состав ярлыков в этом разделе, и при работе приложения с полным экраном Вам не придется сворачивать окно для вызова нужной программы, например, калькулятора при работе в Word. А добавив к панелям инструментов наиболее часто используемые при работе папки, Вам вообще не надо выходить на Рабочий стол, панель задач всегда в Вашем распоряжении. </span>