begin writeln('вводим 5 чисел: '); readln(a, b, c, d, e); min := a; if min > b then min := b; if min > c then min := c; if min > d then min := d; if min > e then min := e; write('Наименьшее значение = ', min) end.
//--------------------------------------------------- program primer2; var a, b, c, D, x1, x2: real;
begin writeln('введите коэффициенты уравнения A, B, C: '); readln(a,b,c); D := b*b - 4*a*c; if D>=0 then begin x1 := (-b + Sqrt(D))/(2*a); x2 := (-b - Sqrt(D))/(2*a); writeln('x1 = ',x1,', x2 = ',x2) end else writeln('корней нет') end.
//----------------------------------------- program primer3; var N, i: integer; a, b, max: real;
begin write('введите кол-во чисел: N = '); readln(N); write('введите первое число: a = '); readln(a); max := a; for i := 2 to N do begin write('введите следующее число: '); readln(b); if b > max then max := b end; write('наибольшее значение = ', max) end.
Answers & Comments
var
a, b, c, d, e, min: real;
begin
writeln('вводим 5 чисел: ');
readln(a, b, c, d, e);
min := a;
if min > b then min := b;
if min > c then min := c;
if min > d then min := d;
if min > e then min := e;
write('Наименьшее значение = ', min)
end.
//---------------------------------------------------
program primer2;
var
a, b, c, D, x1, x2: real;
begin
writeln('введите коэффициенты уравнения A, B, C: ');
readln(a,b,c);
D := b*b - 4*a*c;
if D>=0 then begin
x1 := (-b + Sqrt(D))/(2*a);
x2 := (-b - Sqrt(D))/(2*a);
writeln('x1 = ',x1,', x2 = ',x2)
end
else writeln('корней нет')
end.
//-----------------------------------------
program primer3;
var
N, i: integer;
a, b, max: real;
begin
write('введите кол-во чисел: N = ');
readln(N);
write('введите первое число: a = ');
readln(a);
max := a;
for i := 2 to N do
begin
write('введите следующее число: ');
readln(b);
if b > max then max := b
end;
write('наибольшее значение = ', max)
end.