<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b,d,c:real;
var k:integer;
var s:=0.0;
loop ReadInteger do begin
Read(k,a,b,c,d);
if k=1 then s+=Abs(a-c)*Abs(b-d)
else s+=pi*c*d
end;
Writeln(s)
end.
<u>Пример</u>
3
1 40 100 150 200
2 200 200 60 40
1 150 180 250 300
30539.8223686155
Var a,i,x:integer; f:real;begin for x:=-10 to 10 do begin if x <> 0 then f:=1/x; writeln('f','(',x,')=',f:2:4); end; end.
Я не понимаю что вы написали
// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var L := new List<integer>;
L.AddRange(Seq(1, 6, 7, 3, 5));
L.Println;
var A := ReadInteger('A=');
var s := L.ToArray.IndexesOf(t -> t mod 3 = 0);
var i2 := s.Skip(1).First;
L.Insert(i2 + 1, A);
L.Println;
L.RemoveAt(s.First);
L.Println;
L := L.SortedDescending.ToList;
L.Println
end.
<span>электрические, оптические, беспроводные</span>