ответ:
я выбирал у которых больше всего .
надеюсь тебе это решение .
1
var i: integer;
begin
for i: =2 to 100 do
if(i mod 2 = 0) then writeln(i);
end
2
var
a: real;
i,n: integer;
begin
writeln
a: =0
for i: =1 to n do
a: = a + sgr(i);
end
writeln
readln
end.
6
var
n1, n2, m, i: longint
begin
write( wwedite n1= `)
readln (n2)
if (n1=0) and (n2=0) then writeln;
if n1> n2 then m: = n1 else m: = n2;
i: =m -1;
repeat
inc(i);
until ((i mod n1)=0) and ((i mod n2)=0);
writeln ;
end.
12.
program n99210889
const n=10
s: longint = 1
var i: byte;
begin
s: = s+ term;
term: = term×2
end
writeln(s)
readln
end.
Поделитесь своими знаниями, ответьте на вопрос:
Определите качество звука, если известно, что объём стереоаудиофайла длительностью звучания в 10 с при частоте дискретизации 8 кгц равен 940 кбайта.