На первом листе написан прайс.
На "Сортировка, фильтр" отсортированный и отфильтрованный список.
Решение смотри во вложении.
Ответ:
uses
Math;
var
F, X, Y: Double;
begin
Write ('Введите X, Y: ');
ReadLn (X, Y);
F := Sin (Power (Y, 2)) - Ln (X * Y);
WriteLn ('F = ', F :10 :5);
ReadLn;
end.
Dim p As Double, i As Integer
p = 1
For i = 75 To 299 Step 5
p = p * i
Next i
Print "Произведение равно "; p
End
А это дурацкий вариант на случай, если преподаватель пожелает увидеть условный оператор. Он делает ту же работу, но примерно раз в десять медленнее.
Dim p As Double, i As Integer
p = 1
For i = 73 To 299
If i Mod 5 = 0 Then p = p * i
Next i
Print "Произведение равно "; p
End
Равное нулю, ну если логически рассуждать.Я так думаю, мне было 5
Мощность алфавита N вычисляется по формуле
, где i - это отводимое количество бит на символ. Тогда, 2⁵ = 32. Алфавит <=32 символов. Но и больше 16(т.к. 2⁴ = 16)