ответ:
я выбирал у которых больше всего .
надеюсь тебе это решение .
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.
pascalabc.net
begin
var eps : = 1e-5;
var (s, a, i, n) : = (1.0, 1.0, 1.0, 0);
repeat
i += 1;
n += 1;
s += 1 / sqr(i);
if n mod 500 = 0 then
if abs(s - a) < eps then
break
else
a : = s
until false;
s.print
end.
поскольку ряд сходится медленно, сравниваются частичные суммы, отстоящие друг от друга на 500 членов. "правильное" значение, известное из , равно приблизительно 1,64493.
Поделитесь своими знаниями, ответьте на вопрос:
139 из 16 перевести в 10 систему счисления и расписать как это получилось
1 * 16(в квадрате) + 3 * 16(первой степени) + 9 * 16(нулевой степени)
1 * 256 + 3 * 16 + 9 * 1 = 256 + 48 + 9 = 313
ответ : 313