Сумма чаевых официанту: Sum = 0.15 * (X1 + X2 + X3);
Если X1 = X2 = X3, то Sum = 0.15 * 3 * X = 0.45 * X
Программа со статическим массивом:
Var
M: array[1..32767] of real;
Min: real;
N, i: integer;
Begin
Write('N = ');ReadLn(N);
if (N <= 0) then
WriteLn('Количество элементов должно быть положительно')
else
begin
Write('Введите элементы массива в количестве ',N,' штук');
For i:= 1 to N do
Read(M[i]);
Min := M[1];
For i:= 2 to N do
if (M[i] < Min) then
Min := M[i];
WriteLn;
Write('Получившийся массив:');
For i:= 1 to N do
begin
M[i] := M[i] / Min;
Write(' ',M[i]);
end;
end
End.
1 - 2
2- 1
3- 3
4- 4
5- 5
Вроде так мы такое не изучали
Если что без обид
Формулу сократить до
<span>1/6 (x - 4) (x - 5)
x!=-4
x!=5
и дальше что-то вроде
var
x,y,z,s:integer;
begin
writeln('Вычисление значения функции s=(x^2-10x+25)/(3x+12)/((2x-10)/(x^2-16))', в целых числах);
writeln('Введите значение X);
</span>readln(x);
y:=x-4;
z:=x+5;
if ((y=0) or (z=0)) then writeln('Значение функции не определено');
else begin
s:= 1/6*y*z;
write('s =');
writeln(s);
end;
end.
не уверен насчёт синтаксиса, где-то может быть лишние точка с запятой, проверьте.
1) пиксель
2) Paint
3) красный, зеленый, синий
4) овал
5) растровая
6) 8 бит
7) количество информации для кодирования цвета точки изображения
8) векторная
9) частота дискретизации звука