Program Program1;
var
i,n,y:integer;
begin
write('Введите значение n: ');
readln(n);
i:=2;
y:=1;
while i<=2*n do
begin
y:=y*i;
inc(i,2);
end;
writeln('y=',y);
end.
Paint? Или что за программа?
var A,B,i,sum:integer;
begin
read(A,B);
sum:=0;
for i:=A to B do
if i mod 4 = 0 then sum:=sum+i;
writeln(sum);
end.
Вопросы в ЛС
<span>1.
#include <iostream>
using namespace std;
int main()
{
int arr[8] = { 5, -8, 3, 9, 11, -2, 0, 5 };
for (int i = 0; i < 8; ++i)
if (arr[i] < 0) cout << arr[i] << " ";
<span>}
2.
</span></span><span>#include <iostream>
using namespace std;
typedef unsigned ui;
const ui N = 16;
int main()
{
int arr[N][N];
for (ui i = 1; i < N; ++i) {
for (ui j = 1; j < N; ++j) {
cout << hex << i * j << "\t";
}
cout << endl;
}
<span>}
И не дублируйте темы.</span></span>