Найдите размер файла(в мегабайтах) стерефонической музыкальной композиции длительностью 5: 57 для восьмибитной компьюторной игры, если для записи была выставлена частота дискретизации в 22.05кгц. прям надо
1)var a,b,c:integer; begin writeln('Введите возраст 1 друга'); readln(a); writeln('Введите возраст 2 друга'); readln(b); writeln('Введите возраст 3 друга'); readln(c); if (a>b) and (a>c) then writeln('Старшим является 1 друг') else if (b>a) and (b>c) then writeln('Старшим является 2 друг') else writeln('Старшим является 3 друг'); end. 2)var a,b:integer; begin writeln('Введите возраст 1 друга'); readln(a); writeln('Введите возраст 2 друга'); readln(b); if a>b then writeln('Старшим является 1 друг') else writeln('Старшим является 2 друг'); end.
1) Program asd; USES crt; Const n=10; Var A:array[1..n] of integer; i,kp,s:integer; BEGIN Writeln('Массив: '); For i:=1 to n do begin A[i]:=Random(20); Write(A[i]:4); end; Writeln; For i:=1 to n do begin If A[i] mod 3=0 then s:=s+1; end; Writeln('Сумма: ' ,s); END.
2) Program asd; USES crt; Const n=10; Var A:array[1..n] of integer; i,kp,s:integer; BEGIN Writeln('Массив: '); For i:=1 to n do begin A[i]:=Random(20)-10; Write(A[i]:4); end; Writeln; For i:=1 to n do begin If A[i]<0 then s:=s+1; end; If s=0 then Writeln('Нет отр. элементов!'); Writeln('Сумма отр. элементов: ' ,s); END.
begin
writeln('Введите возраст 1 друга');
readln(a);
writeln('Введите возраст 2 друга');
readln(b);
writeln('Введите возраст 3 друга');
readln(c);
if (a>b) and (a>c) then writeln('Старшим является 1 друг')
else if (b>a) and (b>c) then writeln('Старшим является 2 друг')
else writeln('Старшим является 3 друг');
end.
2)var a,b:integer;
begin
writeln('Введите возраст 1 друга');
readln(a);
writeln('Введите возраст 2 друга');
readln(b);
if a>b then writeln('Старшим является 1 друг')
else writeln('Старшим является 2 друг');
end.