поскольку язык не указан пишу в том который мне удобнее
def temp-table wares no-undo
field ware as char
field cost as dec extent 13
field infl as dec.
def var i as int.
def var infl as dec.
input from data.txt.
repeat:
create wares.
import wares.
end.
input close.
do i = 2 to 13:
infl=random(0.0005, 0.02).
for each wares :
wares.cost[i]=wares.cost[i-1]*(1+infl).
end.
end.
Ответ дал: Гость
цифровом виде.
Ответ дал: Гость
1)
uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =70; r: =25; for i : = 1 to 7 do circle(x,y+i*60,r); end.
2)
uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =20; r: =30; for i : = 1 to 5 do circle(x+i*70,y+i*70,r); end.
3)
uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =70; x: =30; r: =60; for i : = 1 to 5 do circle(x+i*60,y,r); end.
Популярные вопросы