Var
a,b,c,d:real;
begin
write('Введите A=');read(a);
write('Введите B=');read(b);
write('Введите C=');read(c);
D:=sqr(b)-4*a*c;
if D<0 then begin
writeln('D=',D,' ', 'Нет корней');end;
if D=0 then begin
writeln('D=',D,' ', 'x1=', -b/(2*a));end;
if D>0 then begin
writeln('D=',D,' ','x1=',(-b-sqrt(d))/(2*a));
writeln('D=',D,' ','x2=',(-b+sqrt(d))/(2*a));
end;
end.
Var
a,c : real;
begin
Writeln('Ведите исходные данные');
writeln('ценна одного кг яблок');
readln(a);
writeln('Вес яблое (кг)');
readln(c);
writeln('Стоимость покупки: ',a*c:0:2, ' руб ');
end.
Конфигурация - набор компьютера, его составляющие, а ресурсы компъютера - память, то что в ней находится
Если все надписи неверны, то в банку абрикосовое или клубничное не могли налить ни абрикосовое, ни клубничное, значит там лимонное варенье. Остаются банки с надписями абрикосовое и клубничное.
Значит в банку с надписью абрикосовое налили клубничное, а в банку с надписью клубничное налили абрикосовое
Вообще это больше математика
х - входные данные
у - выходные данные
y = f(x)
немного помучившись с более простыми вариантами, предполагаем что наша функция линейна
y = f(x) = ax+b
потому решаем систему для первых двух пар
15 = 2a+b
27 = 4а+b
получаем a = 6, b=3 f(x) = 6x+3
f(10) = 6*10+3 = 63 - ура, подошло для третей пары, значит это верный ответ
Ответ y = 6x+3
