ПОЧЕМУ НЕ РАБОТАЮТ ЭТИ ПРОГРАММЫ Дано три целых числа. Минимальное из них присвоить
дополнительной переменной и вывести результат, используя: логические выражения (с and/or)
var
a,b,c,min:integer;
begin
readln (a,b,c);
if b>a and c>a then min:=a;
if c>b and a>b then min:=b;
if b>c and a>c then min:=c;
writeln (min);
end.
Дано четыре целых числа. Максимальное из них присвоить
дополнительной переменной и вывести результат, используя: логические выражения (с and/or)
var
a,b,c,d,max:integer;
begin
readln (a,b,c);
if b>a and b>c and b>d then max:=b;
if a>b and a>c and a>d then max:=a;
if c>a and c>d and c>d then max:=c;
if d>a and d>c and d>b then max:=d;
writeln (min);
end.
В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных.
Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.