Задача №1
//Pascal
var i,a,s,k:integer;
begin
s:=0;k:=0;
repeat
readln(a);
if a>12 then begin
k:=k+1;
s:=s+a;
end;
until a=0;
if k<>0 then writeln(s/k)
else writeln('Таких чисел нет');
end.
Задача №2
var
n,p: integer;
begin
p:=1;
readln(n);
while n > 0 do
begin
write(' ', n mod 10);
if n mod 10 < 4 then p:=p * (n mod 10);
n := n div 10
end;
if p<>1 then writeln('Произведение цифр числа ', p)
else writeln('Нет решения');
end.
Var
i: integer;
ar: array[1..8]of integer;
begin
for i := 1 to 8 do read(ar[i]);
for i := 1 to 8 do
if(i mod 2 = 0) then write(ar[i], ' ');
end.
Если таблицу делать в excel то написав в любой ячейке формулу =СУММ(T1*C1;T2*C2;T3*C3;T4*C4;T5*C5;T6*C6;T7*C7;T8*C8;T9*C9;T10*C10;)
=СУММ -это формула суммы в скобках пишем что именно нужно суммировать через точку с запятой, если написать T1*C1 то программа сначала посчитает вам произведение количества на цену, и в самую последнюю очередь выдаст вам общие затраты
Http-протокол (поставь спасибо плиииииииииииииз!(╥_╥)