Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');
Определенное научное понятие
<span>1 килобайт = 1024 байта
1 мегабайт = 1024 килобайта = 1024*1024 байт = 1048576 байт</span>
1. 4+1 = 5 (7)
2. 5*2 = 10 (8)
3. 10+1 = 11 (7)
4. 11*2 = 22 (8)
5. 22+1 = 23 (7)
6. 23*2 = 46 (8)
7. 46+1 = 47 (7)
8. 47*2 = 94 (8)
Я считаю, что четырёх угольников 6