<span>uses crt;
procedure Prost(a:longint;var f:boolean);
var i:longint;
begin
if a<3 then f:=false
else
begin
f:=true;
for i:=2 to round(sqrt(a)) do
if a mod i=0 then f:=false;
end;
end;
var a,b,i,k:longint;
f:boolean;
begin
clrscr;
repeat
writeln('Введите диапазон натуральных чисел a<b:');
readln(a,b);
until (a>=0)and(b>a);
k:=0;
for i:=a to b do
begin
Prost(i,f);
if f then
begin
write(i,' ');
k:=1;
end;
end;
if k=0 then writeln('Простых чисел в интервале ',a,' ',b,' нет!');
readln
end.</span>
1045'2128 пикселей это 2.223.760 битов
2.223.760/8=277970 байтов
288970/1024=271 килобайт
var
a, b: <em>integer</em>;
begin
assign(input, 'input.txt');
assign(output, 'input.txt');
reset(input);
rewrite(output);
readln(input, a, b);
if (a mod 2 = 1) then
writeln(output, b mod 2)
else
writeln(output, '0');
close(input);
close(output);
end.
Переведите из PascalABC в C++ var p3,h,p,p1: array[1..2000000] of int64; i,n,j,u,l,kf,x,o,p2:int64; begin u:=0; read(n,x);p2:=0;
Mari777 [180]
Объяснение: почти все компиляторы имеют ограничение по оперативной памяти, а программа требует ее в количестве Дохрена , потому пришлось использовать либо вектора либо динамичнские массивы(я выбрал динамические )
#include <iostream>
using namespace std;
int main()
{
long long *p = new long long[2000000];
long long *p1 = new long long[2000000];
long long *p3 = new long long[2000000];
long long *h = new long long[2000000];
long long n, u{0}, kf, x, o, p2{0};
cin >> n >> x; //n=1 x=2
for (long i = 0; i < n; i++)
cin >> h[i]; //=3
cin >> kf; //=5
for (long i = 0; i < kf; i++)
{
cin >> p[i];
if (p[i] == 1)
cin >> h[n++];
if (p[i] == 2)
p2++;
if (p[i] == 3)
{
long long l{0};
cin >> p3[u];
p3[u] += p2 + 1;
for (long long j = p2; j < p3[u] - 1; j++)
if (h[j] >= x)
l++;
u++;
cout << l << endl;
};
};
delete[] p, p1, p3, h;
}