Ответ:
=ЕСЛИ(B1<3000;B1*0,05; ЕСЛИ(B1>10000;B1*0,015; B1*0,02))
180
1946 год - <span>создание первого компьютера</span>
1,5 Кб = 1536 бит
3072/1536 = 2 бита на символ
2^2 = 4
Ответ: 4
Надеюсь что это нужно выполнить на паскале
4. var a: array[1..20] of integer;
p,i:integer;
begin
p:=1;
for i:=1 to 20 do
begin
a[i]:= random(20);
write(a[i]:3);
end;
writeln;
for i:=1 to 20 do
if a[i] mod 2 = 0 then p:=p*a[i];
writeln(p);
end.
5. var a: array[1..100] of integer;
sum,i:integer;
begin
for i:=1 to 100 do
begin
a[i]:= random(100);
write(a[i]:4);
end;
for i:=1 to 100 do
sum:=sum+a[i];
writeln;
writeln(sum);
end.
6. var a: array[1..20] of integer;
sum,i:integer;
begin
writeln('Исходный массив');
for i:=1 to 20 do
begin
a[i]:= random(20);
write(a[i]:3);
end;
for i:=1 to 20 do
if a[i]<10 then
a[i] :=0;
writeln;
writeln('Итоговый массив');
for i:=1 to 20 do
write(a[i]:3);
end.
#include <iostream>
using namespace std;
int main ()
{
int y[10], n, i, max, min;
cout<<"\n N="; cin>>n;
for (i=0; i<n; i++)
{
cout<<"\n Y["<<i<<"]=";
cin>>y[i];
}
min=y[0];
max=0;
for (i=0; i<n; i++) {
if ( max<y[i] )
{
max = y[i];
}
if ( min>y[i] )
{
min = y[i];
}
}
cout << "Summa max i min = " << max+min << endl;
system("pause");
return 0;
}