1)
program qq;
var a,b,s,p : integer;
begin
writeln('Введите стороны прямоугольника');
read(a,b);
s:=a*b;
p:=2*(a+b);
writeln('Площадь прямоугольника равна ',s);
writeln('Периметр прямоугольника равен ',p);
end.
2)
Var a,b : Real;
Function SrAr(aa,bb :Real) : Real;
Begin
SrAr:=(aa+bb)/2;
end;
Begin
Readln(a,b);
Writeln(SrAr(a,b));
end.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Введите целое число:').Reverse.Println
end.
Напиши мне автора рт и класс я тебе скину офигенную решу
А интернет для чего тебе? Это же лёгкие вопросы!
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>