Ответ: vark, c: integer;beginwrite(‘Введите количество: ‘);readln(k);write(‘Введите стоимость: ‘);readln(c);writeln(‘Цена равна ‘, c/k);end.
Источник znanija.site
Ответ: vark, c: integer;beginwrite(‘Введите количество: ‘);readln(k);write(‘Введите стоимость: ‘);readln(c);writeln(‘Цена равна ‘, c/k);end.
Источник znanija.site
Ответ:
Выложу решение полного уровнения.
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.
Источник znanija.site