Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n, s, k : integer;
a : array [1..20] of integer;
begin
write('введите n=');
readln(n)
writeln('введите элементы массива а: ' );
for i: =1 to n do
readln(a[i]);
s: =0;
k: =0;
if a[i] mod 8 = 0 then begin s: =s+a[i]; k: =1 end;
if k=0 then write ('элементов кратных 8 - нет')
else write('сумма элементов кратных 8 =', s);
readln
end.
program fasf;
var
n,q: integer;
write('введите этаж: ');
readln(n);
q: =n*4;
writeln('квартиры: ',q,q-1,q-2,q-3);
(a*h)+(b*h)+(a*h)+(b***h3)
или
2*(a*h)+2*(b***h3)
если на 1 кв метр 200 грамм то
(2*(a*h)+2*(b***h3))*200= ответ будет в граммах
расход обычно указывается на кв метр : )
4мин=240 сек.
1 половина всего времени = 240/2=120 сек.
за перпую половину времени передалось = 120 сек * 117 кбит = 14040 кбит
за вторую половину времени передалось в 3 раза меньше (т.к. скорость была в 3 раза меньше) = 14040/3=4680 бит
всего передалсоь = 14040+4680=18720 кбит = 2340 кбайт
Популярные вопросы