Program gt;
var n,a,i,s,q:integer;
begin
read(n);
read(a);
s:=0;
for i:=1 to n do
begin
read(q);
if(q mod a=0)then s:=s+q;
end;
writeln(s);
end.
Ответ: утконос. Просто убирай все одинаковые буквы.
200 * 3 = 600 бит
<span>600 / 8 = 75 байт.</span>
Школа - Ш 1. А ( единицу написать красным и сделать курсивом)
учитель- нарисовать букву БОЛЬШУЮ БУКВУ Ч ,в ней маленькую букву У, потом буквы И Т и нарисовать ель
компьютер -
Var x,a,s:real; i,n:integer;
begin
write('x = '); readln(x);
write('n = '); readln(n);
s:=0;
a:=-1;
for i:=1 to n do
begin
a:=-a*x;
s:=s+a/i;
end;
writeln('s = ',s);
end.
Пример:
x = 0.5
n = 4
s = 0.401041666666667