Ручка стоит k рублей, к 1 сентябрю она подорожала на p%. определите, сколько ручек можно купить на s рублей после подорожания. составить программу на pascal.
PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018 Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.ElementsByRow; var avg:=s.Average; Writeln('Среднее арифметическое ',avg); Writeln('Элементы, превышающее среднее арифметическое:'); s:=s.Where(t->t>avg); s.OrderBy(t->t).Println; Writeln('Всего таких элементов: ',s.Count) end.
Пример Количество строк и столбцов в массиве: 4 5 *** Исходный массив *** 98 95 -10 -45 21 -33 -11 14 -46 87 57 -40 -96 -40 15 -99 -20 -7 -29 -89
Среднее арифметическое -8.9 Элементы, превышающее среднее арифметическое: -7 14 15 21 57 87 95 98 Всего таких элементов: 8
var x0, y0, x, y, xLeft, yLeft, xRight, yRight, n: integer; a, b, fmin, fmax, x1, y1, mx, my, dx, dy, num: real; i: byte; s: string;
begin SetWindowSize(W, H); xLeft := 10; yLeft := 10; xRight := W - 10; yRight := H - 10; a := -5; b := 5; dx := 1; fmin := -5; fmax := 5; dy := 1; mx := (xRight - xLeft) / (b - a); my := (yRight - yLeft) / (fmax - fmin); x0 := trunc(abs(a) * mx) + xLeft; y0 := H div 2; line(xLeft, y0, xRight + 10, y0); line(x0, yLeft - 10, x0, yRight); SetFontSize(12); SetFontColor(clBlue); TextOut(xRight + 20, y0 - 15, 'X'); TextOut(x0 - 10, yLeft - 30, 'Y'); SetFontSize(8); SetFontColor(clRed); n := round((b - a) / dx) + 1; for i := 1 to n do begin num := a + (i - 1) * dx; x := xLeft + trunc(mx * (num - a)); Line(x, y0 - 3, x, y0 + 3); str(Num:0:0, s); if abs(num) > 1E-15 then TextOut(x - TextWidth(s) div 2, y0 + 10, s) end; n := round((fmax - fmin) / dy) + 1; for i := 1 to n do begin num := fMin + (i - 1) * dy; y := yRight - trunc(my * (num - fmin)); Line(x0 - 3, y, x0 + 3, y); str(num:0:0, s); if abs(num) > 1E-15 then TextOut(x0 + 7, y - TextHeight(s) div 2, s) end; TextOut(x0 - 10, y0 + 10, '0'); x1 := a; while x1 <= b do begin x := x0 + round(x1 * mx); y1 := F(x1); if y < H then y := y0 - round(y1 * my); if (y >= yLeft) and (y <= yRight) then SetPixel(W - x, H - y, clGreen); if (y >= yLeft) and (y <= yRight) then SetPixel(x, y, clGreen); x1 := x1 + 0.001; end; end.
begin
readln(k,s,p);
a:=s/(k+k*(p/100));
writeln(a);
end.