1) 640 × 480 = 307200 пикселей в данном изображении
2) 3 байта = 24 бита - глубина кодирования одного пикселя
3) 307200 × 24 = 7372800 бит - информационный объем данного изображения
4) 7372800 бит / <span>1 024 000 бит/с = 7,2 секунды требуется модему, если скорость передачи будет <span>1 024 000 бит/с</span></span>
<span><span>Ответ: 7,2 секунды нужно модему</span></span>
var a, b, s, p: real;
begin
write(‘Чему равны стороны прямоугольника: ‘);
readln(a,b);
p:=2*(a+b);
s:=a*b;
writeln(‘Периметр прямоугольника: ‘, p);
write(‘Площадь прямоугольника: ‘, s)
end.
Результат работы:
Чему равны стороны прямоугольника: 2 5
Периметр прямоугольника: 14
Площадь прямоугольника: 10
Var n:longint;
c:real;
begin
write ('N = ');
readln(n);
if (n mod 2 = 0) and (n>0) then c:=n/4 else
if (n mod 2 = 0) and (n<0) then c:=n*5 else
if (n mod = 1) then c:=sqr(n);
write (c:0:2);
end.
Линия, прямоугольник, эллипс, многоугольник.