Информатика 8 класс
6. ответьте на вопросы.
1. с каких операций можно обрезать часть аудиозаписи?
2. какие операции и эффекты позволяют улучшить качество аудиозаписи?
3. каким образом можно соединить несколько аудиозаписей в одну?
4. с каких эффектов можно добиться плавного перехода от одной
аудиозаписи к другой при монтаже аудиозаписей?
Программа:
program test;
Uses Math;
const
N = 5;
var
A : array [1..N] of integer; {Массив элементов}
i : integer; {Счетчик цикла}
P : Int64; {Произведение элементов}
mn : integer; {Минимальный элемент массива}
C : integer; {Количество положительных элементов}
begin
P := 1;
C := 0;
for i := 1 to N do begin
{Вводим очередной элемент массива}
Read( A[i] );
{Вычисляем произведение}
P := P * A[i];
{Положительные элементы подсчитываем}
if A[i] > 0 then C := C + 1;
end;
{Находим минимальный }
mn := A[1];
for i := 2 to N do
mn := min( mn, A[i] );
WriteLn('Произведение - ', P);
WriteLn('Количество положительных - ', C);
WriteLn('Минимальный элемент - ', mn);
end.
Результат выполнения программы:
1)x = (input('x= '))
y = (input('y= '))
z = (input('z= '))
c = ((x % 3 == 0) and (y % 3 == 0) and (z % 3 == 0))
print(
else:
print
2)uses crt;
var x,y:real;
f1,f2:boolean;
begin
clrscr;
writeln('Введите 2 числа:');
readln(x,y);
f1:=(x>2)and(y>3);
f2:=(x>1)and(y>-2);
writeln(f1);
write(f2);
readln
end.
3)uses crt;
var a,r:real;
begin
clrscr;
write('Введите сторону квадрата и радиус круга-> ');
readln(a,r)
if sqr(a)>pi*sqr(r) then write('У квадрата') else write('У круга');
readln;
end.
5)uses crt;
Var a, i, n, S: integer;
Begin
Write('Vvedite n '); readln(n);
S:=0;
For i:=40 to 140 do
begin
read(a);
if (a mod 6 =0) then S:=S+a;
end;
Writeln(S);
End.