<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<span>var m,i,j,k: integer;
begin
write('m=');
readln(m);
for i:=2 to m do
begin
if(i>2)and(i mod 2=0) then continue;//пропускаем все четные, больше 2
//проверяем на простоту нечетные
j:=3;
k:=0;
while (j*j<=i)and(k=0) do
if i mod j=0 then k:=1//если делится, не простое
else inc(j,2); //иначе проверим следующее
if k=0 then write(i,' ');//если простое, выводим
end;
end<span>.</span></span></span>
Готово. Если возникнут вопросы, пиши ниже.
1)
2кбайта = 2048 байт
2048/256=8 сек
2)
800*5=4000 бит
3)
8 бит
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure MyProc;
begin
var n:=ReadInteger('Введите порядок матрицы:');
Writeln('Введите построчно элементы матрицы');
var a:=ReadMatrInteger(n,n);
Writeln(4*a.ColCount*'-');
Write('Строки, содержащие только нули: ');
for var i:=0 to n-1 do
if a.Row(i).All(t->t=0) then Print(i+1);
Writeln
end;
begin
Loop 2 do MyProc
end.
<u>Пример</u>
Введите порядок матрицы: 3
Введите построчно элементы матрицы
1 0 0
0 0 1
0 0 0
------------
Строки, содержащие только нули: 3
Введите порядок матрицы: 2
Введите построчно элементы матрицы
0 0
0 0
--------
Строки, содержащие только нули: 1 2