Program Resheto;
const n=954530;
var i,j,last,k:integer;
b:array[1..n] of boolean;
begin
for j:=1 to n do b[j]:=true; ///сначала все числа не вычеркнуты
b[1]:=false; ///единицу вычеркиваем сразу
i:=2;k:=0; ///k - количество найденных простых чисел
while i*i<=n do
begin
for j:=i+1 to n do
begin
if (b[j]) then ///если число уже вычеркнуто,то ничего не делаем
begin
if (j mod i=0) then begin last:=j; b[j]:=false; end; ///если число делится,то запоминаем его в last и вычеркиваем из решета
end;
end;
inc(i);
end;
for j:=2 to n do if b[j] then inc(k); ///считаем количество
writeln; writeln('Последнее вычеркнутое: ',last);writeln('Найдено простых чисел: ',k);
for j:=2 to n do if b[j] then write(j,' '); ///выводим все простые числа через пробел
end.
Var
a,b : array[1..8, 1..8]of integer;
i, j,k, x, y, x1, y1:integer;
begin
k:=-1;
for i:= 1 to 8 do
begin
k:=-k;
for j:= 1 to 8 do
begin
a[i,j]:=k;
b[i,j]:=k;
k:= -k;
end;
end;
Readln(x,y);
Readln(x1,y1);
if (a[x,y] = b[x1,y1]) then Writeln('YES')
else Writeln('NO');
end.
1)?
2)клавиатура (скорей всего)
3)процессор
4)?
5)жёсткий диск или винчестер
6)мышь
7)диск
8)винчестер
9)принтер
Значение информации для человека.
Определние "информация" для человека становится все шире и шире, с каждым днем все полезнее, и одновременно сложней в усвоении и образовании.
Информация в жизни человека играет важную роль в повседневной жизни, начиная с работы и быта, заканчивая интернет технологиями. Информация помогает человеку сохранить , создать и следовать истории. Благодаря инфоормации человечество имеет возможность передавать и получать знания в изначальной точности. Цифры, буквы, изображения , формулы и даже звуки , все это частицы нашей информации, которую получив, возможно обработать и модернизировать, так и получается, модернизировав информацию мы не стоим на месте, наука и технологии идут вперед.
Информация, помогает человеку изучить и применить свои знания, взяв к примеру одну ситуацию, один человек собирается написать письмо другому человеку, естественно в наше время проще написать и отправить письмо воспользовавшись электронными технологиями, сделать это намного проще и быстрее, пускай и не через компьютер, но через телефон становится все проще и проще. И поэтому для того чтобы попросить человека на расстоянии "купить на обратном пути хлеба" , достаточно всего лишь набрать нужную информацию в сообщении телефона и отправить ее человеку.
P.s.
Что то типа того, может примеры не особо понравятся, можешь отредактировать, вставить что то свое , или добавить.
T = n mod 10; if (n mod t = 0) then writeln(t);
t = n div 10 mod 10; if (n mod t = 0) then writeln(t);
t = n div 100 mod 10; if (n mod t = 0) then writeln(t);
t = n div 1000 mod 10; if (n mod t = 0) then writeln(t);
