кот, корень кот, окончание нулевое, основа слова "кот"
Var
i:integer;
a:array[4..9]of integer;
begin
writeln('Исходный массив:');
for i:=4 to 9 do
begin
a[i]:=random(1,10);
write(a[i]:4);
end;
for i:=4 to 9 do
if a[i]<5 then a[i]:=a[i]-1;
writeln;
writeln('Преобразованный массив:');
for i:=4 to 9 do
write(a[i]:4);
<span>end.</span>
//Работает до 7 числа
//Dev-C++ 5.11 (C)
#include <stdio.h>
#include <math.h>
int main(void)
{long long unsigned int a,b,i,d;
i=2;
d=1;
scanf("%d %d",&a,&b);
while (pow(2,i-1)*(pow(2,i)-1)<=b)
{for(int j=2;j<(pow(2,i)-1)/2;j++)
if(int(pow(2,i)-1)%j==0)d=0;
if(d)
{d=pow(2,i-1)*(pow(2,i)-1);
if(d>=a)printf("%d \n",d);}
d=1;
i++;}
return 0;}
Магнитная запись была изобретена в начале XX века вроде бы в 1887 году