У банк поклали s грн під n%річних. Розробіть програму обчислення накопиченої суми через K років. У програмі - id1789812820220501 от jaz5 01.05.2022 12:59

Question

Информатика: У банк поклали s грн під n%річних. Розробіть програму обчислення накопиченої суми через K років. У програмі використайте дві функції: 1) за до першої функції (без параметрів) вводяться вхідні дані 2) за до другої функції (з параметрами ) - обчислюється накопичена сума за формулою складних відсотків.

jaz5 · Accepted Answer

Program man;
uses Graph;
var gd, gm: Integer;
begin
gd:=Detect;
InitGraph(gd, gm, ' ');
SetFillStyle(1, Green);
Bar(0, 350, 639, 479);
SetFillStyle(1, LightBlue);
FloodFill(0, 0, Green);
SetColor(Red);
Circle(320, 200, 19);
SetLineStyle(0, 0, 3);
Rectangle(390, 220, 340, 300);
Line(320, 300, 300, 350);
Line(320, 300, 340, 350);
Line(300, 240, 250, 250);
Line(340, 240, 390, 250);
SetFillStyle(1, Red);
FloodFill(320, 200, Red);
FloodFill(320, 230, Red);
SetColor(Yellow);
Circle(315, 190, 2);
Circle(325, 190, 2);
Line(315, 210, 325, 210);
Readln;
CloseGraph;
end.

MOGZ ответил