begin
// 1
var N := ArrRandom(70, 1, 45);
N.Println;
N.Where(p -> p < 10).Aggregate(BigInteger(1), (p, q) -> p * q).Println;
// 2
var M := ArrGen(45, p -> Sqrt(p) / 45, 1);
M.Println
end.
A)
var a,sum,p:integer;
<span>begin </span>
<span>writeln('Введите число a'); </span>
<span>read(a); </span>
<span>sum:=a div 10 + a mod 10; </span>
<span>p:=(a div 10) * (a mod 10); </span>
<span>writeln('Сумма цифр числа =',sum); </span>
<span>writeln('Произведение цифр числа =',p); </span>
<span>end.
</span>
б)
var a:integer;
<span>begin </span>
<span>writeln('Введите число a'); </span>
<span>read(a); </span>
<span>a:=(a mod 10)*10+a div 10; </span>
<span>writeln(a); </span>
<span>end.</span>
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
var
L,A:real;
begin
Writeln('Введите размер талии и длину стороны окна: ');
Read(L,A);
if L<Pi*A then Writeln('Пройдет')
else Writeln('не пройдет')
end.
1) В ASCII каждый символ кодируется одним байтом, поэтому количество байт равно количеству символов. Тогда строка займет 45 байт, страница = 25х45 байт, весь текст - 300х25х45 байт. Выражаем эту величину в килобайтах: 300х25х45/1024 = 329.6 КБайт. Если использовать двухбайтную кодировку UNICODE, объем файла удвоится и составит 659.2 Кбайта.
2) Фотография содержит 3072х2048 пикселей, каждый пиксель кодируется 6 байтами, 1 Кбайт равен 1024 байтам, тогда графический файл будет иметь размер 3072х2048х6/1024=36864 (Кбайт)
3) Скорость передачи данных по сети составляет 48/(2.5х60)=0.32 МБайт/с.
Время передачи упакованного файла равно 80-30=50 (с).
За это время по сети будет передан файл размером 50х0.32=16 (Мбайт)
Ответ: Б!
Ответ А не подходит: Принтер не устройство ввода.
Ответ В не подходит: Монитор не устройство воода.
Ответ Г не подходит: Флеш-память не устройство ввода!