Имеется графическое обозначение объекта. Выберите из предлагаемых
вариантов имя и свойства данного
объекта.
Аквариум. jpg
ёмкость, размер
занятого/свободного
пространства, тип доступа.
Локальный диск (C:)
скорость печати, цветность
печати
EPSON L110 Series
тип, размер, дата создания
Вперед​

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.

t1 = s1/v1

t2 = s2/v2

v(sr) = (s1+s2)/(t1+t2)

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.

l*pi*((r+a)^2- (r)^2)*p

p - плотность