А где фото
????????????????????
Первая задача
program firstProgram
var<span> ug1, ug2: real;
</span>begin<span>
write("Введите первый угол: ");</span><span>
read(ug1);</span><span>
write("Введите второй угол: ");</span><span>
read(ug2);</span>
<span> if ((ug1 + ug2) < 180)</span><span>
begin</span><span>
if ((ug1 > 90) or (ug2 > 90)) write("Треугольник тупоугольный");</span><span>
else if ((ug1 = 90) or (ug2 = 90)) write("Треугольник прямоугольный");</span><span>
else write("Треугольник остроугольный");</span><span>
end
</span><span>end</span>
121212 – можно расшифровать как АБАБАБ или ККК, например
253010 – ЧЬИ или БДЬИ
203033 – ТЬЯ или ТЬВВ
Остается 203105 (ТВИД). Эта кодовая цепочка расшифровывается однозначно: 0 может появиться только в конце кода, поэтому в коде обязательно есть 20 и 10. Получается однозначное разбиение на буквы 20-3-10-5.
Var
i,n:integer;
s:real;
begin
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
end.