Var
max,min,i:integer;
b:real;
a:array[1..9]of integer;
begin
for i:=1 to 9 do
begin
while (a[i]<1) or (a[i]>6) do
begin
write(i,' оценка: ');
readln(a[i]);
end;
if i=1 then
begin
max:=a[1];
min:=a[1];
end;
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
b:=b+a[i];
end;
b:=(b-min-max)/7;
writeln('Зачетная оценка: ',b);
<span>end. </span>
Здесь все 3 примера в одной программе:
program Primer;
var
x, y, z: Real;
begin
Write('Введите значения x,y,z: ');
ReadLn(x, y, z);
WriteLn('1: ', (x + y - z) / (sqr(x) + 2), #10, '2: ', 5 * (2 * x - z) / (3 + sqr(y)), #10, '3: ', (1 + z) * ((x + y / (sqr(x) + 4)) / (2 + 1 / (sqr(x) + 4))));
end.
166 дели на 2 43 тоже много раз пок ане получится 1 или 2 в конце
Я думаю что ответ С Тактильных