<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=9;
Writeln('*** Исходная матрица ***');
var a:=new real[n,m];
Randomize;
for var i:=0 to n-1 do
for var j:=0 to m-1 do
a[i,j]:=Random(-100,100)/10;
a.Println(5,1); Writeln(5*a.ColCount*'-');
var col:=1;
Write('Средние арифметические: ');
while col<=m-1 do begin
Write(a.Col(col).Average:0:2,' ');
col+=2
end;
Writeln
end.
<u>Пример</u>
Количество строк в матрице: 6
*** Исходная матрица ***
9.6 -4.5 0.2 -7.6 5.4 -4.8 -0.1 -8.6 9.3
-3.6 -3.3 -4.6 -4.6 -2.0 -7.3 5.4 5.1 -9.3
3.2 1.0 -8.1 -5.9 -6.1 9.8 -0.7 -2.5 -1.5
-3.0-10.0 -7.4 -6.7 9.6 -2.1 9.3 -4.6 -3.8
9.7 -7.8 3.1 0.9 -3.0 5.4 9.7 2.9 -9.6
-3.3 4.4 -1.7 -5.0 8.5 0.9 -3.9 -3.4 1.3
---------------------------------------------
Средние арифметические: -3.37 -4.82 0.32 -1.85
1) Дано четырехзначное число.
- Вывести 1, если сумма его цифр является трехзначным числом, 0 иначе.
- Вывести 1, если произведение его цифр является трехзначным числом, 0 иначе.
- Вывести 1, если сумма его цифр кратна трем, 0 иначе.
- Вывести 1, если произведение его цифр кратно четырем, 0 иначе.
2) Дано трехзначное число.
- Вывести 1, если все цифры числа одинаковы, 0 иначе.
- Вывести 1, если число оканчивается четной цифрой.
Решения обеих задач на языке С++ даны в приложениях.
Объем дискеты 1457664 = 2847 * 512 байт
Для несжатого звука (в mp3 зависит от битрейта)
а) 1 байт * 8000 = 8000 байт/с (1 байт= 8 бит)
1457664 / 8000 = 182.208 секунд
б) 2 байта * 48000 = 96000 (2 байта = 16 бит, 48 кГц - в этом параметре уже учтено, что звук стерео, на каждый канал по 24 кГц)
1457664 / 96000 = 15.184 секунд
На самом деле чуть меньше, т.к. еще должна быть записана "шапка"файла размером 44 байта, но, вероятно, в задаче это учитывать не надо
Подробных требований нет, поэтому один из простых вариантов такой:
<FORM>
Число:
<input type="text" size="10" name=number>
<P>
<input type="button" value="Проверить"
onclick="if (number.value % 2)
ans.value=number.value+'-нечетное';
else ans.value=number.value+'-четное'"">
<input type="text" size="10" name=ans>
<P>
<input type="reset" value="Очистить">
</FORM>
Текст набрать в блокноте и сохранить с расширением html. Затем открыть в браузере.
