PascalABC.NET
-----------------------------
var
a: array[1..10000] of integer;
kz,maxp,n,i,j: integer;
begin
i:=0;
maxp:=integer.MinValue;
writeln ('Готов к приему чисел');
repeat
i:=i+1;
readln (a[i]);
until a[i]=0;
n:=i-1;
readln (kz);
for i:=1 to n-1 do
for j:=2 to n do
if maxp<(a[i]*a[j]) then maxp:=(a[i]*a[j]);
writeln ('Получено ',n,' чисел');
writeln;
writeln ('Полученное контрольное значение: ',kz);
writeln;
writeln ('Вычисленное контрольное значение: ',maxp);
writeln;
if kz=maxp
then writeln ('Контроль пройден')
else writeln ('Контроль не пройден');
end.
--------------------------------------
Результаты:
1)
Готов к приему чисел
1 2 3 4 5 0 20
Получено 5 чисел
Полученное контрольное значение: 20
Вычисленное контрольное значение: 20
Контроль пройден
2)
Готов к приему чисел
1 2 3 4 5 6 0 20
Получено 6 чисел
Полученное контрольное значение: 20
Вычисленное контрольное значение: 30
Контроль не пройден
Объем дискеты 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 байта, но, вероятно, в задаче это учитывать не надо
начни с головы, нарисуй круг, щеки выдели, потом нарисуй уши, глаза, далее нарисуем овал - Туловище, в нем круг ( Расскрасить круг - просто бежевым) потом лапы , как сосиски:D
