Находишь свой файл на диске и правой кнопкой мыши перетаскиваешь. у тебя вылазит менюшка, в ней выбираешь "создать ярлык"
Всемирная паутина
Имеется ввиду интернет
Program kids;
var m,j,Summa:<em>integer</em>;
begin
writeln('На сколько мальчиков больше ?'); readln(m);
j:=15;
Summa:=j+(m+j);
writeln('В нашем классе ',Summa,' человек.');
readln;
end.
________
j - это сумма девочек, а m+j - это сумма мальчиков.
Ну тут всё надо перемножить и перевести в кБ.
30 с * 16000 Гц * 16 бит = 7 680 000 бит ( сек * 1/сек * бит = бит)
7 680 000 / 8 = 960 000 Байт (1 Байт = 8 бит)
960 000 / 1024 = 937,5 кБайт (1 кБайт = 1024 Байт, т.е. 2 в степени 10)
<span>
</span>
Wde не работает, так что не проверял..
var n,x,s,i:integer;
begin
readln(n); // считываем n
for i:= 1 to n do begin
readln(x); // читаем одно из n чисел
s:=s+x; // добавляем к сумме
end;
writeln(s);
end.