SCREEN 7
pi = 3.14
CIRCLE (100, 100), 60, 15, pi / 2, pi * 1.5
CIRCLE (160, 100), 60 * SQR(2), 15, pi * 3 / 4, pi * 5 / 4
<span>PAINT (45, 100), 14, 15</span>
На С устроит?....................................................................................
1) начало
2) вводится целое число n
3) если остаток от деления n на 2 равен 0, то печатается сообщение ' 'Число чётное', иначе на печать выдаётся сообщение 'Число нечётное'
4) конец
var a:array[1..100]of integer;
i,s,n:integer;
c:boolean;
begin
readln(n);
for i:=1 to n do readln(a[i]);
s:=1;
for i:=1 to n do
if (a[i]<0)and(a[i] mod 2=0) then begin s:=s*a[i]; c:=true; end;
if c then writeln(s) else writeln(0);
end.
#include <iostream>
#include <cmath>
using namespace std;
int main() {
int R, x;
cin >> R >> x;
double S;
S = pi * pow(R , 2);
cout << S * x;
return 0;
}