Windows XP
Linux
<span>Mac OS
</span><span>Windows 2000</span>
uses math;
var
a, b, c: Integer;
S, p: Real;
begin
readln(a);
readln(b);
readln(c);
p := (a + b + c) / 2;
S := sqrt(p * (p - a) * (p - b) * (p - c));
writeln(S:0:1);
end.
3.5 Кбайта * 1024 байт\Кбайт = 3584 байт.
Один символ занимает один байт, значит ответ 3584 символа.
1)
Var i,a,b:longint;
Begin
read(a,b);
for i:=a to b do
if (i mod 3=0) then write(i,' ');
writeln;
End.
2)
Var i:longint;
Begin
for i:=10 to 99 do
if (abs(i mod 10 - i div 10)<=1) then write(i,' ');
writeln;
End.
3)
Var i,s,f,t:longint;
Begin
for i:=100 to 999 do
begin
f:=i div 100;
s:=i div 10 mod 10;
t:=i mod 10;
if (f=s) or (f=t) or (s=t) then write(i,' ');
end;
writeln;
End.
Var
L,m:real;
Begin
Write('L = ');Read(L);
Write('m = ');Read(m);
Write('Q = ',L*m,' Дж')
End.