program CS;
var S,C:real;
var r:integer;
Const pi = 3.14;
begin
writeln('Введите радиус');
Readln(r);
C:= 2*pi*r;
S:= pi*sqr(r);
Writeln('Длина окружности = ', C:5:2);
Writeln('Площадь круга = ', S:5:2);
Readln();
end.
Объяснение:
Указываем переменные и константу pi. Так как радиусом указывается целое число, то присваиваем целочисленный тип (integer).
Площадь же и длина могут выходить за рамки целых чисел, поэтому присваиваем им вещественный тип (real).
writeln('Введите радиус'); - Выводит на экран надпись в скобках.
Readln(r); - функция для ввода радиуса
C:= 2*pi*r; - присваиваем значение для С (длина окружности)
S:= pi*sqr(r); - присваиваем значение для S (площадь круга)
Writeln('Длина окружности = ', C:5:2); - вывод на экран длины окружности ( двоеточие нужно для округления. После первого двоеточия указывается отступ от крайнего символа в данной строке, а после второго количество знаков после запятой).
Writeln('Площадь круга = ', S:5:2); - вывод на экран площади круга.
Readln(); - требуется для того, чтобы программа сразу не закрывалась. (В чистом PascalABC вроде бы не требуется, а вот в DELPHI точно. Но лучше оставить, если спросят, что это, то ты знаешь что ответить)
ответ: 40
Объяснение:
1. Вычислим объем файла:
Объем файла = (кол-во пикселей) * (кол-во бит на пиксель)
Кол-во бит на пиксель для палитры из 65 636 цветов равно 16
( 2^n >= 65536 )
Объем файла в КБ:
(кол-во пикселей) * (кол-во бит на пиксель) / 8 / 1024:
1024 * 768 * 16 / 8 / 1024 = 1536
2. Определим пропускную канала:
1536 / 48 = 32 КБ/сек
3. Вычислим объем второго файла:
Кол-во бит на пиксель для палитры из 256 цветов - 8.
Объем файла в КБ: 1280 * 1024 * 8 / 8 / 1024 = 1280
Время передачи этого файла:
1280 / 32 = 40 секунд
