Исландия
Ирландия
Новая Зиландия
<span>Шотландия
</span><span>Голландия</span>
<u>Белоруссия</u> - Минск
<u>Германия</u> - Берлин
<u>Испания</u> - Мадрид
<u>Италия</u> - Рим
<u>Швеция</u> - Стокгольм
1. Предлог.
2. Длина.
3. Осадки.
4. Союз.
5. Слагаемое.
6. Дерево.
7. Вечер.
8. Горячий.
9. Плавание или Хоккей. Скорее всего плавание.⊆
--------------
Из всего этого спокойно выражаются углы.
------------------------
var s,a,b,c,ua,ub,uc,otn:real;
//-----------------
function arcsin(x:real):real;
begin
arcsin:=arctan(x/Sqrt(1-sqr(x)));
end;
//---------------------
function deg(x: real):real;
begin
deg:=round(1000*x*180/pi)/1000;
end;
//-------------
begin
readln(s,a,c);
ub:=arcsin(2*s/c/a);
b:=sqrt(sqr(a)+sqr(c)-2*a*c*cos(ub));
otn:=b/sin(ub);
uc:=arcsin(c/otn);
ua:=arcsin(a/otn);
writeln('альфа= ',deg(ua),'°');
writeln('бета= ',deg(ub),'°');
writeln('гамма= ',deg(uc),'°');
end.
Var
i,n:integer;
s:string;
begin
writeln('Введите текст');
readln(s);
repeat
n:=pos(' ',s);
delete(s,1,n);
until n=0;
for i:=1 to length(s) do
if s[i]='б' then n:=n+1;
writeln('Число букв "б" в последнем слове: ',n)
<span>end.</span>