Вот наполнение массива рандомом. Если нужно наполнение с клавиатуры, то вместо a[i,j]:=random(100)-50; необходимо поставить read(a[i,j]);
const n=3; m=4;
var a:array[1..n,1..m] of integer;
var i, j, count:integer;
begin
count:=0;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(100)-50;
write(a[i,j]:3, ' ');
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do begin
if (a[i,j]<0) and (a[i,j] mod 2 <>0) then count:=count+1;
end;
writeln('Количество отрицательных нечетных элементов: ', count);
<span>end.
</span>
Program task2;
var R, x, y : real;
begin
writeln('Введите значения R, x, y:');
read(R, x, y);
if (((x >= 0) and (y >= 0) and (x * x + y * y <= R * R)) or ((x < 0) and (y < 0) and (y >= -x - R))) then
writeln('Точка с координатами x: ', x, ', y: ', y, ' принадлежит заданной области.')
else
writeln('Точка с координатами x: ', x, ', y: ', y, ' не принадлежит заданной области.');
<span>end.</span>
Чтобы узнать о недоработках и ошибках.
Пользователи служат в роли тестировщиков программы
#include <iostream>
using namespace std;
int main() {
int n, m, i;
cout << "n = ", cin >> n, cout << "\n";
m = n;
for (i=2; i<10; i++){
while (m % i == 0) m = m/i;
}
if (m == 1)
cout << "Yes\n";
else cout << "No\n";
return 0;
}
Пример:
n = 1213857792
Yes