program
zadagha_1;
var
a:
array[1..8] of integer;
i,sum:integer;
begin
writeln('vvedite
8 chisel');
for i:=1 to
8 do read(a[i]);
sum:=0;
for i:=1 to
8 do begin
if i mod 2
<> 0 then begin
sum:=sum+a[i];
writeln(a[i]);
end;
end;
writeln();
writeln('summa
elementov c nechetnim N =', sum);
end.
program
zadagha_2;
var
b:
array[1..1000] of integer;
i,a,n:integer;
begin
writeln('vvedite
chislo - kolichestvo elementov massiva');
readln(n);
for i:=1 to
n do begin
b[i]:=random(1000);
write(b[i]:6);
end;
writeln();
writeln('vvedite
chislo');
readln(a);
write
('elementi > dannogo chisla: ');
for i:=1 to
n do begin
if
b[i]>a then write (i:4);
end;
end.
program
zadacha_3;
var
a:
array[1..100] of integer;
i,n,k:
integer;
begin
n:=random(100);
for i:=1 to
n do begin
a[i]:=random(1000)-500;
write(a[i]:6);
end;
writeln();
writeln('vvedite
chislo');
readln(k);
writeln('v
massive chisly ',k, ' kratni: ');
for i:=1 to
n do begin
if (a[i] mod k = 0) and (a[i]>0) then begin
write(a[i]:6);
end;
end;
end.
<span> ЭВМ пятого поколения ставятся совершенно другие задачи, нежели при
разработки всех прежних ЭВМ. Если перед разработчиками ЭВМ с I по IV
поколений стояли такие задачи, как увеличение производительности в области
числовых расчётов, достижение большой ёмкости памяти, то основной задачей
разработчиков ЭВМ V поколения является создание искусственного интеллекта
машины (возможность делать логические выводы из представленных фактов),
развитие "интеллектуализации" компьютеров - устранения барьера между
человеком и компьютером. Компьютер теперь используется и дома, это
компьютерные игры, прослушивание высококачественной музыки, просмотр фильмов.
Уже сейчас компьютеры способны воспринимать информацию с рукописного или
печатного текста, с бланков, с человеческого голоса, узнавать пользователя по
голосу, осуществлять перевод с одного языка на другой. Это позволяет общаться
с компьютерами всем пользователям, даже тем, кто не имеет специальных знаний
в этой области.</span>
Const
n=5;
var
a:array[1..n,1..n]of integer;
i,j,k:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
j:=n;
for i:=1 to n do
begin
if a[i,j]<5 then k:=k+1;
j:=j-1;
end;
writeln('Ответ: ',k);
<span>end. </span>
2^4=16
следовательно один символ весит 4 бита
3кбайта =3*8*1024=24576 бит
24576/4=<u><em>6144 символов в сообщении </em></u>