===== PascalABC.NET =====
function GetArr(n: integer) :=
ReadArrInteger('Вводите эдементы массива:', n);
function Summ(a: array of integer): integer;
begin
if a.Any(p -> p < 0) then
Result := a.TakeWhile(p -> p >= 0).Sum
else
Result := a.Sum
end;
// Тест
begin
var M := GetArr(ReadInteger('n ='));
Println(Summ(M))
end.
//Dev-C++ 5.11 (C)
#include <stdio.h>
int main(void)
{int x,y,xl,yl;
scanf("%d%d%d%d",&xl,&yl,&x,&y);
if((xl==x)||(yl=y))
printf("YES");
else
printf("NO");
return 0;}
Пример ввода:
4 4 4 2
Пример вывода:
YES
Переводим все велечины в первоначальные единицы:
t = 10мин = 600сек
f = 11.025кГц = 11025Гц
b = 8бит = 8бит.
I = t * f * b
I = 600сек * 11025Гц * 8бит = 52920000бит = 6.3мб
Ответ: 6.3мб
Графические, комбинированные, текстовые и тд я енезнаю