#include <iostream>
#include <math.h>
using namespace std;
int main(){
double m[10][10];
for (int i = 1; i <= 10; i++)
for (int j = 1; j <= 10; j++) {
cout << "Введите значение массива" << "[" << i << "]" << "[" << j << "]" << endl;
cin >> m[i][j];
if (j % 2 == 0) m[i][j] = pow(m[i][j],3);
}
for (int i = 1; i <= 10; i++)
for (int j = 1; j <= 10; j++)
cout << "m[" << i << "]" << "[" << j << "]=" << m[i][j] << endl;
return 0;
}
pascalabc:
program f0rwardirop;
var r, x,y: real;
b: boolean;
begin
writeln('* alphaeus is *');
write('ok, введите r ='); readln(r);
write('теперь введите х ='); readln(x);
write('и, наконец, введите y ='); readln(y);
if x> =0 then
if (x*x+y*y < = r*r) then b: = true else b: =false
else
if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;
if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')
else writeln('точка (',x,',',y,') не принадлежит закрашенной области');
end.