Помогите решить!!!! Даю 100 баллов

0 голосов
22 просмотров

Помогите решить!!!! Даю 100 баллов


image

Информатика (325 баллов) | 22 просмотров
0

Надо решить на Паскале

Дан 1 ответ
0 голосов
Правильный ответ
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

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.

Пример
3
1 40 100 150 200
2 200 200 60 40
1 150 180 250 300
30539.8223686155
(150k баллов)