50-если посчитать все буквы,пробелы и знаки.По кол-во событий 5.
1) размер изображения=640*480*3=112,5 кбайта
передача=28800/8=3600 байта/с
время=115200/3600=32 с
2) размер файла=10*51200/8=64000 байта
Количество символов=64000*8/16=32000 символов
3) Размер файла=4096*600=2,3Мбайта
1) Совокупление живых особей (передача днк и продолжение рода)
2) обезьяньи крики (общение)
3) Перенос информации на флеш-накопителе
4) Радиоволны
5) Ультразвук у летучих мышей
DIM a(1 TO 10)
CLS
RANDOMIZE (TIMER)
s = 0
FOR i = 1 TO 10
a(i) = CINT(21 * RND - 11)
PRINT a(i);
IF a(i) MOD 2 <> 0 THEN s = s + a(i)
NEXT i
PRINT
PRINT "s = "; s
1)
var a: array [1..40] of integer;
i, s1, s2: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] mod 2 = 1) then
begin
s1 := s1 + a[i];
inc(s2);
end;
end;
writeln(s1 / s2);
<span>end.
2)
var a: array [1..40] of integer;
i, q: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] <= 10) then q := q + a[i];
end;
writeln(q);
<span>end.
3)
var a: array [1..40] of integer;
i, w: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] mod 3 = 0) then w := w + a[i];
end;
writeln(w);
<span>end.</span></span></span>