VAR a,b:integer;
x:real;
begin
writeln(' a=');
readln(a);
writeln ('b=');
readln (b);
x:=-b/a;
if a =0 then writeln('uravnenie korney ne imeet')
else
writeln('korni uravneniya=',x);
readln;
<span>end.</span>
100000 + 30000 + 8000 + 10
30000 + 5000 + 700 + 10
100 + 20 + 5 + 0.4 + 0.09 + 0.001
PascalABC.NET
type mass = array [1..4] of integer;
var a : mass;
i : integer;
function min(c : mass) : integer;
var
i,minim : integer;
begin
minim := c[1];
for i := 2 to 4 do
if c[i] < minim then
minim := c[i];
result := minim;
end;
begin
for i := 1 to 4 do
readln (a[i]);
writeln ('min = ',min(a));<span>
end.
Как параметр я использовал массив из четырех элементов. Можно использовать просто переменные и через IF все прописать</span>
№217
Ячейка C2 = 4
Ячейка C3 = 7.75
Если удалить значение ячейки A1, то
Ячейка C2 = 3
Ячейка C3 = 9
P.S. №216 размазан и не полностью сфотан, поэтому к сожалению не могу решить((((