<span>var
a: array [1..100] of integer;
i, n , max : integer;
begin
writeln('rozmer');
readln(n);
randomize ;
if (( n>=1) and (n<=35)) then
for i:=1 to n do begin
a[i]:=random(90)-45 ;
write(a[i]:3);
end;
writeln;
max:=a[1] ;
for i:=2 to 100 do begin
if a[i]>max then max:=a[i] ;
end;
writeln(max);
end<span>.</span></span>
<font color="red">... (текст)...</font>
var r,h:real;
Begin
read(r,h);
writeln('S=',pi*r*2*h/3);
End.
Дано
N1=256
N2=2 ( цвета черный и белый)
v2=v1-70
Найти v1/v2
V1=a*b*I1 I- глубина цвета
V2=a*b*I2
V1/v2=I1/I2 ( а и b сократится при делении)
Найдем I1 и I2 из формулы Хартли N=2^I
256=2^I I1= 8
2=2^I I2=1
V1/(v1-70)= 8/1
V1/(v1-70)=8 решим уравнение по свойству пропорции
8v1-560=v1
7v1=560
v1=80 байт
Наука о методах сбора,хранения,преобразования,отправки,получения и использования информации - информатика.