<em>VAR</em>
<em> ans: Real;</em>
<em> n, i: Integer;</em>
<em>BEGIN </em>
<em> Read(n);</em>
<em> </em>
<em> For i := 1 to n do </em>
<em> ans := ans + (1 / Sqr(i));</em>
<em> </em>
<em> Write(ans);</em>
<em>END.</em>
Создается, так сказать, массив, длину которого вводите вы. Затем вы его заполняете. В цикле происходит сортировка чисел массива от меньшего к большему(если число слева больше числа справа, то поменять их местами) и выводится на экран первые два числа, то есть 2 наименьших числа массива.
Однако тупо реализовано создание массива. Неважно сколько вы впишете длину массива(<100), он все равно будет занимать память на 100 символов, а это очень глупо. Для создания динамических массивов(массивы , размеры которых РЕАЛЬНО указываете вы сами) используйте указатели.
1) Для четверки:
program ryazantsev;
var i,n,t,s:integer;
begin
s:=0;
readln(n);
for i:=1 to n do begin
readln(t);
if (t mod 4 <> 0) and (t in [10..99]) then s:=s+t
end;
writeln(s)
end.
2) Для семёрки:
program ryazantsev;
var i,n,t,s:integer;
begin
s:=0;
readln(n);
for i:=1 to n do begin
readln(t);
if (t mod 7 <> 0) and (t in [10..99]) then s:=s+t
end;
writeln(s)
end.
1. двоичный код :
00011100010110100011011000011100010111000011110000011100010111100011100
0000111000101110000110110000111000101110000110010000111000101110000111110
0001110001011110001110000001110001011100010101000001110001011100010111000
0011100010111000011011000011100010111000011001000101000000111000101100000
1100100001110001011100001110100001110001011100001111000001110001011100010
1011000011100010111000100001000011100010111000101101000011100010111000011
0010001010000001110001011010001100100001110001011110001110000001110001011
1100011010000011100010111000101011000011100010111000011001000011100010111
0001011010000111000101110001011100000111000101110000110110000111000101110
00101101000011100010111000011001
2.Десятичный код:
144527144630144728144627144625144631144728144642144646144627144625201444
2514462914463014464314463314464514462520144525144728144726144643144625144
645144646144627144645144625
Физика-5+4+4+5=18:4=4,5
Химия-3+4+3+4=14:4=3,5
Алгебра-4+4+3+4=15:4=3,75
Геометрия-4+3+3+3=13:4=3,25
Если надо округлять:
Физика:5
Химия:4
Алгебра:4
Геометрия:3
