Задание не полное.
Рисунок задания взят с интернета
Свои ответы добавлены темно-зеленым цветом
Program as;
var a,b,c,d,p,s:real;
uses crt;
clrscr;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s);
readln;
end.
Паскаль:
var a:integer;begin ReadLn(a); if not (a mod 2 = 0) then WriteLn(a*2); if a > 7 then Writeln(Sqrt(a));end.
<span>x = int(input("Висота = "))
z = int(input("Ширина = "))
for i in range(x+1)<span>:
</span>----if i==0 or i==x<span>:
</span></span>--------<span>for j in range(z)<span>:
</span></span>------------<span>print(' - ',end='')
</span>----<span>else<span>:
</span></span>--------<span>print('|\t',end=' ')
</span>--------<span>for j in range(1,z+1)<span>:
</span></span>------------<span>print(' ',end='')
</span>--------<span>print('|',end='')
</span>----print()