Var R:integer:=70; //радиус Солнца A:array[1..4,1..5] of integer; //A[1] - x //A[2] - y //A[3] - r //A[4] - r орбиты v:real:=0.03; k:integer:=10; // Коэффициент масштабирования орбит Begin Window.Maximize; A[1,3]:=10; A[1,4]:=R+A[1,3]*k;
A[2,3]:=13; A[2,4]:=A[1,4]+A[2,3]*k;
A[3,3]:=17; A[3,4]:=A[2,4]+A[3,3]*k;
A[4,3]:=A[3,3] div 4; A[4,4]:=A[3,3]+A[4,3]*k;
LockDrawing; SetCoordinateOrigin(Window.Width div 2,Window.Height div 2);
Var A:real; k:integer; Begin Write('Стоимость одной газеты: ');ReadLn(A); Write('Количество газет: ');ReadLn(k); if k <= 50 then WriteLn('Заработок продавца: ',k*A,' руб.') else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.') End.
Var k:integer; S,A:real; Begin Write('Стоимость одной газеты: ');ReadLn(A); Write('Количество газет: ');ReadLn(k); if k <= 50 then S:=k*A else S:=A*((k-50)*1.2+50); WriteLn('Заработок продавца: ',S:0:2,' руб.'); End.
Пример работы программы:
Стоимость одной газеты: 30.15 Количество газет: 200 Заработок продавца: 6934.50 руб.