1)Var a: array [1..10] of integer;
pr,i:integer;
begin
pr:=1;
for i:=1 to 10 do
begin
readln(a[i]);
if a[i] mod 7 = 0 then
pr:=pr*a[i];
end;
writeln(pr);
end.
2)Var a: array [1..17] of integer;
count,i:integer;
begin
randomize;
count:=0;
for i:=1 to 17 do
begin
a[i]:=random(21)-10;
writeln(a[i]);
if a[i]>0 then inc(count);
end;
writeln(count);
end.
3)Var a: array of integer;
count,i,n,c:integer;
begin
readln(n);
count:=0;
Setlength(a,n+1);
c:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i]>5) and (i mod 2 =0) then
begin
inc(count);
c:=c+a[i];
end;
end;
writeln(c/count);
end.
4)Const N=35;
Var a: array [1..N] of integer;
i:integer;
begin
randomize;
for i:=1 to N do
begin
a[i]:=random(21)-5;
write(a[i]:4);
if (a[i] mod 10 = 5) then a[i]:=0
else a[i]:=1;
end;
writeln;
for i:=1 to N do
write(a[i]:4);
end.
Передача голоса по каналам Интернет (протокол VOIP - Voice Over IP), которую еще называют IP-телефонией, не требует для осуществления никаких дополнительных затрат, потому что сеть Интернет и так имеется, а все необходимое оборудование и программное обеспечение установлено у абонентов. Поэтому IP-телефония по сути бесплатна, если у абонентов безлимитный тариф на подключение Интернет. Обычная международная телефонная связь подразумевает оплату телефонным компаниям за услугу предоставления телефонного соединения и использование каналов связи.
Скорее всего большое приемущество обработки данных с помощью электронных таблиц в том ,что при такой обработке допущение ошибки минимально ( это уже зависит от человека ,где он неправильно ввёл данные ) . Если же обрабатывать таблицу вручную ,то верояность допущения ошибок велика!
Так же преимущество в том ,что при обработке информации при помощи таблицы намного быстрее проходит этот процесс ,нежеле ты сама будешь всё проверять .
Ну и конечно же люди сейчас настолько ленивы ,чтобы самостоятельно обрабатывать какую-либо информацию, поэтому мы всё доверяем исскуственному разуму:)
Var m1,m2,st,i:integer;
begin
m1:=0; m2:=0;
st:=1;
for i:=1 to 30 do
begin
m1:=m1+100;
m2:=m2+st;
st:=st*2;
end;
writeln('Богатый: ',m1,' бедный: ',m2);
if m1<m2
then writeln('Выиграл богатый') else writeln('Выиграл бедный');
end.
Результат:
Богатый: 3000 бедный: 1073741823
Выиграл богатый