//PascalABC.NET 3.1
begin
var a := ArrRandomInteger(7); a.Println;
WriteLn('Среднее арифметическое: ', a.Average);
end.
//PascalABC.NET
begin
var a := 125;
var b := 25;
Write($'{b} составляет {25*100/125}% от числа {a}')
end.
Program n1;
var a,sum,k: integer;
begin
readln(a);
sum:=0;
k:=0;
while a<>0 do begin
if (a<0) and (a mod 6=0) then begin
k:=k+1;
sum:=sum+a;
end;
readln(a);
end;
writeln(sum/k);
end.
Program n2;
var a,sum: integer;
begin
readln(a);
sum:=0;
while a<>0 do begin
if (a mod 2=0) and (a mod 3=0) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
команды: Создать, сохранить изменить, открыть, сохранить как..., свойство, выход, копировать вставить файл, смешать с файлом, удалить.
создать - записать звук
сохранить - сохранить запись
изменить - редактировать аудио дорожку
открыть - открыть файл
сохранить как - где именно сохранять и в каком формате
свойство - свойство программы типа Информации о программе
выход - выход из программы
копировать вставить файл - скопировать дорожку вставить дорожку
смешать с файлом - смешать аудио с другой дорожкой
удалить - удалить аудио дорожку.