Program n1;
var a,sum,k: integer;
begin
readln(a);
sum:=0;
k:=0;
while a<>0 do begin
if (a<0) and (a mod 6=0) then begin
k:=k+1;
sum:=sum+a;
end;
readln(a);
end;
writeln(sum/k);
end.
Program n2;
var a,sum: integer;
begin
readln(a);
sum:=0;
while a<>0 do begin
if (a mod 2=0) and (a mod 3=0) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
Program one;
var s,a,b,c,d,m:real;
begin
writeln('Введите цену яблок , груш ');
readln(s,a);
writeln('Введите кол-во яблок , груш в кг ');
readln(b,c);
m:=(a*b)+(c*d);
if s >= m then writeln('Денег хватит',m)
else
writeln('Денег не хватит');
end.
Решение заданиий 2 и 3 - в файлах.
V= 36864 бит/с
1стр.= 2304 сим.* 8 бит= 18432 бит
4 стр. = 18432 бит.* 4 = 73728 бит = S
t= ?
t = S/V
t = 73728 бит / 36864 бит/с = 2
ответ: 2
Ответ под цифрой 4. Изначально следует посчитать количество символов, включая пробелы, цифры и знаки препинания. Это значения K. Вес одного символа обозначается буквой i и равен 16 бит. И по формуле I=K*i узнаём:
32*16=512(бит). Следует так же обратить внимание на единицы измерения