рассчитайте объем памяти в мегабайтах необходимой для сохранения сорокасекундного видео со скоростью смены кадров 24 в секунду с пространственым разрешениям 400*200 пикселей и политрой из 256цветов ответ округлите до целых
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var s:=ReadLines('in.txt').ToArray; var n:=StrToInt(s[0]); var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray; var f:=OpenWrite('out.txt'); Writeln(f,n,' - (кол-во чисел)'); foreach var e in a do Write(f,e,' '); Writeln(f); Writeln(f,'Среднее значение четных ', a.Where(x->x.IsEven).Average); Writeln(f,'Среднее значение нечетных ', a.Where(x->x.IsOdd).Average); f.Close end.
begin
var s:=ReadLines('in.txt').ToArray;
var n:=StrToInt(s[0]);
var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray;
var f:=OpenWrite('out.txt');
Writeln(f,n,' - (кол-во чисел)');
foreach var e in a do Write(f,e,' '); Writeln(f);
Writeln(f,'Среднее значение четных ',
a.Where(x->x.IsEven).Average);
Writeln(f,'Среднее значение нечетных ',
a.Where(x->x.IsOdd).Average);
f.Close
end.
Файлы in.txt и out.txt находятся во вложении.
Содержимое файла out.txt:
15 - (кол-во чисел)
-22 49 33 47 -10 -1 20 -18 2 21 2 -25 21 -47 -36
Среднее значение четных -8.85714285714286
Среднее значение нечетных 12.25
1.Малды қолға үйрету нешінші мыңжылдықта басталды?
2.Жайлымның неше түрі бар?
3.Әйгілі зерттеуші И.Я.Златкин мал шаруашылығы туралы қандай пікір қалдырды?
4.Тебіндеп деген сөздің мағынасы қандай?1.Малды қолға үйрету нешінші мыңжылдықта басталды?
2.Жайлымның неше түрі бар?
3.Әйгілі зерттеуші И.Я.Златкин мал шаруашылығы туралы қандай пікір қалдырды?
1.Малды қолға үйрету нешінші мыңжылдықта басталды?
2.Жайлымның неше түрі бар?
3.Әйгілі зерттеуші И.Я.Златкин мал шаруашылығы туралы қандай пікір қалдырды?
1.Малды қолға үйрету нешінші мыңжылдықта басталды?
2.Жайлымның неше түрі бар?
3.Әйгілі зерттеуші И.Я.Златкин мал шаруашылығы туралы қандай пікір қалдырды?
4.Тебіндеп деген сөздің мағынасы қандай?
4.Тебіндеп деген сөздің мағынасы қандай?
4.Тебіндеп деген сөздің мағынасы қандай?