Var i.n:integer;
begin
readln(n);
for i:=1 to n do
writeln(i*i);
end.
1.ОДИН МИЛЛИОН ОДНА ТЫСЯЧА СТО ДЕСЯТЬ
2.ОДИН МИЛЛИОН СТО ДЕСЯТЬ ТЫСЯЧ СТО
3.СТО ДЕСЯТЬ ТЫСЯЧ ОДИННАДЦАТЬ
4.ОДИННАДЦАТЬ МИЛЛИОНОВ ОДНА ТЫСЯЧА СТО ДЕСЯТЬ
УДАЧИ!!!
Двоеточие - это часть команды (оператора), который называется оператор присваивания. В данном контексте всегда используется два символа ":=". Команда присваивания y:=y-x означает, что берутся текущие значения переменных x и y, находится их разность, после чего результат записывается (говорят - "присваивается") переменной y. Например, если значение y было задано y:=20; а x:=1; то новое значение переменной y будет равно 20-1=19.
В команде x:=x*2 все аналогично. Берется текущее (установленное ранее) значение переменной x, умножается на 2, а результат этого умножения становится новым значением переменой x. Старое значение при этом безвозвратно теряется.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b, c) := ReadReal3('Введите a, b, c:');
Print(0.5 * Sqrt(2 * b * b * +2 * c * c - a * a))
end.
<h2>Пример</h2><h3>Введите a, b, c: 4.5 5.2 3.12</h3><h3>16.0672236556289</h3>
Чтобы чересчур не увлекаться арифметикой, введем понятие коэффициента пересчета k - отношения размера нового файла к старому.
Файл был записан в стерео (два канала) вместо моно (1 канал), поэтому k=2/1=2.
Разрешение стало в 4 раза выше (больше), поэтому k=2×4=8.
Частота дискретизации стала меньше в 3.5 раза, k=8/3.5=16/7 (оставим дробь, чтобы точность не терять).
Теперь можно легко найти новый размер файла:
49 Мб × k = 49×16/7 = 112 Мб (вот где дробь пригодилась - 49 разделилось на 7 без остатка).
Ответ: 112 Мб.