//PascalABC
var
a, b, c, P, S : real;
begin
write('Введите длину стороны A> ');
readln(A);
write('Введите длину стороны B> ');
readln(B);
write('Введите длину стороны C> ');
readln(C);
writeln('Вычисление по формуле Герона');
P := (A + B + C) / 2;
S := sqrt(P * (P - A) * (P - B) * (P - C));
writeln('Площадь треугольника S = ', S);
end.
<span>Размер возможного изображения на экране будет вычисляться по формуле: S = V / (k * 4)
</span>
<span>Варианты разрешающей способности: 960x520; 640x480; 960x480
</span>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.
</u></em>P.S.S. А да S≥A*B, A*B и есть ответы
a=input()
for i in range(len(list(a))-1):
print(a[i],end="*")
print(a[i+1])
Var s:string; k,l,i:integer;
begin
readln(s);
readln(k);
l:=length(s);
if k<l then delete(s,k+1,l-k)
else for i:=l+1 to k do s:=s+'!';
writeln(s);
end.
Пример 1:
abcdefgh
10
abcdefgh!!
Пример 2:
abcdefgh
5
abcde