Ответ: vark, c: integer;beginwrite(‘Введите количество: ‘);readln(k);write(‘Введите стоимость: ‘);readln(c);writeln(‘Цена равна ‘, c/k);end.
написать программу для вычисления цены ткани, количество и стоимость вводятся с клавиатуры Pascal — Правильный ответ на вопрос найдете ниже
04.11.2019 · 1
Написать программу для вычисления дискриминанта d квадратного уравнения ax2 + bx + c = 0. Разработать тесты проверки правильности работы программы для вариантов, когда d>0, d=0 и d<0. — Правильный ответ на вопрос найдете ниже
19.05.2019 · 1
Ответ:
Выложу решение полного уровнения.
var a,b,c,d:integer; x1,x2:real;begin writeln(‘Введите коэффициенты’); readln(a,b,c); d:=b*b-4*a*c; if (d<0) then writeln(‘Нет решения’) else if (d=0) then begin x1:=-b/(2*a); writeln(‘x=’,x1); end else begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln(‘x1= ‘,x1,’x2=’,x2); end; readlnend.