Ответ:
program pr1;
var
i: Integer;
begin
for i := 1000 to 9999 do begin
if (i div 10) mod 10 <> (i div 100) mod 10 then
Write (i, ' ');
end;
ReadLn;
end.
- - - - - - - - - - - - - - - - - - - - -
program pr2;
var
a, b, i: Integer;
begin
Write ('Введите А, В: ');
ReadLn (a, b);
for i := a to b do
if (i mod 2 <> 0) and (i mod 7 = 0) then
Write (i, ' ');
ReadLn;
end.
1. процессор берёт информацию из жесткого диска, который в свою очередь передает информацию с некой скоростью (в зависимости от самого винчестера) сохраняет с некой скоростью тоже , поэтому винчестер иногда не успевает сохранять информацию ибо же сам пользователь забыл вручную сохранить информацию
2.
У крестиков два выигрышных поля.
1) Среднее поле
2)Верхний правый угол
1)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=cos(x*x);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
closegraph;
end.
2)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=1/(x*x+1);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
<span>
</span>
<span>наверно переносчик данных но я точно не знаю</span>
