Program zzz;
var days:integer;
var discount, sum:real;
var days2:integer;
begin
readln(days, discount, sum);
days2 := 0;
sum := 0;
discount := discount / 10;
while( days2 <= days ) do begin
sum := sum + (sum * discount); {я не до конца понял задание, посему, скорее всего, придется тут менять}
sum := sum + 3;
days2 := days2 + 1;
end;
writeln('Ответ: ', sum);
<span>end.</span>
Program n1;
var a,b: real;
begin
readln(a,b);
writeln('S=',a*b);
write('P=',(a+b)*2);
end.
Uses
GraphABC;
begin
Window.Init(0, 0, 300, 300, clWhite);
window.CenterOnScreen();
Pen.Color := clSilver;
Pen.Width := 3;
Brush.Style := bsGradient;
Brush.Color := clBlack;
Brush.GradientSecondColor := clWhite;
Rectangle(50, 50, 250, 250);
end.
Var a,b,i,n: integer;
begin
a := 1;
b := 1;
read(n);
for i := 2 to n do
begin
b := a + b;
a := b - a
end;
write(b)
end.
7FE=14*16^0+15*16^1+7*16^2=2046 в 10 с/с 2046/2=1023 байт
E=14
F=15
Ответ 2