Var
n, a, s,i: integer;
begin
s := 0;
read(n);
for i := 1 to n do
begin
read(a);
if(a mod 3 = 0) then s := s + a;
end;
write(s);
end.
VVVVVVVVVVVVVV
<span>program bb;
uses crt;
var a,b,c,d:real;
begin
write('Введите сторону А первого прямоугольника: ');
read(a);
write('Введите сторону В первого прямоугольника: ');
read(b);
write('Введите сторону С второго прямоугольника: ');
read(c);
d:=(6*a*b)/c;
write('Вторая сторона второго прямоугольника = ',d);
end.</span>
Ответ дается с предположением что речь идет об Экселе
копирование формул это тупа копирование формул(из ячейки в ячейку), есть только загвоздка со ссылками на ячейки, они могут по разному переноситься в зависимости от того абсолютная или относительная ссылка.
<span>СУММ(5; 2; 13) = 5+2+13</span>
<span>1) 1 байт
</span><span>2) N=32, =2 (сверху припиши в степени i),
</span> => i=5 бит
<span>Ответ: 5 бит</span>
Чтобы перевести десятичное число в 5-чную систему, нужно это число последовательно делить на 5 с остатком. Например, переведём 183.
Делим
183 : 5 = 36 (остаток 3)
36 : 5 = 7 (остаток 1)
7 : 5 = 1 (остаток 2)
Теперь выписываем последний результат деления (у нас это 1) и после него все остатки в обратном порядке: 2 1 3
Получается число
Проверяем: