==== PascalABC.NET =====
begin
var (x1, y1) := ReadReal2('Координаты х и у вершины 1:');
var (x2, y2) := ReadReal2('Координаты х и у вершины 2:');
var (x3, y3) := ReadReal2('Координаты х и у вершины 3:');
Print('Площадь треугольника равна',
0.5 * ((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)))
end.
Если симов занимает 1 байт, то получается 6 файлов
Program lol;
var i:integer;
sum,kv:real;
begin
for i := a to b do
begin
kv = i*i;
sum:=sum+kv;
kv:=0;
end;
end.
Вычисления производятся в столбик
1 0 1 0 1
0 0 1 1 1
1 1 1 0
решение в среде Паскаль:
Var a:array[1..10] of Integer; i,s,m: integer; f,t:real;
begin
s:=0;
writeln('write marks');
For i:=1 to 10 do begin
readln(a[i]);
If i>1 then begin
If a[i-1]=2 then begin
If a[i]<>2 then begin s:=s-2; m:=m-1; end;end;end;
s:=s+a[i];
m:=m+1;
end;
f:=s/m;
t:=Int(f);
Writeln('His or her mark is ', t:2:0);
readln;
end.