Program sum;
uses Crt;
Var i: integer;
sum, p, sr : real;
a : array [1..25] of real;
begin
Clrscr;
For i:=1 to 25 do
begin
write ('a[',i,']=');
readln(a[i]);
end;
sum:=0;
For i:=1 to 25 do begin
if a[i]>0 then sum:=sum+a[i];
end;
sr:=sum/25;
For i:=1 to 25 do begin
if a[i]<0 then p:=p*a[i];
end;
Writeln ('Sum=',sum:5:2);
Writeln ('p=',p:5:2);
Writeln ('Sr=',sr:5:2);
readln;
end.
1. Общее количество символов 1800 + 2 х 3000 = 7800. Пусть символы кодируются в однобайтном коде ASCII, тогда 7 800 символов имеют информационный объём 7 800 байт или 7800 х 8 =62 400 бит. При скорости передачи 1200 бит/с на передачу этой информации потребуется время
62400 / 1200 = <u><em>52 с</em></u>
2. Предполагая кодировку ASCII определим объем информации:
7920 х 40 х 8 = 2 534 400 бит.
Скорость передачи составит 2534400 / 33 = <u><em>76 800 бит/с</em></u>
3. Переводим килобайты в биты (1 Кбайт = 1024 байта, 1 бит = 8 байт):
3750 х 1024 х 8 = 30 720 000 бит.
Переводим минуты в секунды: 2 х 60 = 120 с
Определяем скорость передачи: 30720000 / 120 = <u><em>256 000 бит/с</em></u>
1) 500 Кбайт = 500 х 1024 х 8 = 4 096 000 бит.
Время передачи данных 4096000 / 128000 = <em><u>32 с</u></em>
2) За 2 минуты, равные 2 х 60 = 120с, будет передано
256000 х 120 = 30 720 000 бит.
Переводим в килобайты: 30720000 / 8 / 1024 = <u><em>3 750 Кбайт</em></u>
3) 3000 Кбайт = 3000 х 1024 х 8 = 24 576 000 бит
5 минут - это 5 х 60 = 300 с
Скорость передачи данных составит 24576000 / 300 = <u><em>81 920 бит/с</em></u>
Var
a,b:real;
begin
writeln('Сколько стоит электричество?');
read(a);
writeln('Сколько показывает <span>счетчик</span>?');
read (b);
writeln('Вам нужно заплатить ', a*b);
end.
1-Присоединение частицы «не» к высказыванию называется операцией логического отрицания или инверсией.
2-Конъюнкция
3-логическое сложение