begin var a:=ReadReal('Введите зарплату в первый месяц->'); var z:=0.00; for var i:=1 to 12 do begin Writeln('Доход за ',i,' месяц составил ',a:0:2,'р.'); z+=a; a:=a+a*0.1; end; Writeln('Зарплата за год: ',z:0:2,'р.'); end.
Пример: Введите зарплату в первый месяц-> 100 Доход за 1 месяц составил 100.00 р. Доход за 2 месяц составил 110.00 р. Доход за 3 месяц составил 121.00 р. Доход за 4 месяц составил 133.10 р. Доход за 5 месяц составил 146.41 р. Доход за 6 месяц составил 161.05 р. Доход за 7 месяц составил 177.16 р. Доход за 8 месяц составил 194.87 р. Доход за 9 месяц составил 214.36 р. Доход за 10 месяц составил 235.79 р. Доход за 11 месяц составил 259.37 р. Доход за 12 месяц составил 285.31 р. Зарплата за год: 2138.43 р
Задачу решается вот таким жутким перебором (который, если немного подумать можно ещё сократить): //Рюмка+рюмка=авария var a,b,c,d,e,f,g,h:integer; begin for a:=1 to 9 do //р for b:=0 to 9 do //ю if (b<>a) then for c:=0 to 9 do //м if (c<>a)and(c<>b) then for d:=0 to 9 do //к if (d<>a)and(d<>b)and(d<>c) then for e:=1 to 1 do //а if (e<>a)and(e<>b)and(e<>c)and(e<>d) then for f:=0 to 9 do //в if (f<>a)and(f<>b)and(f<>c)and(f<>d)and(f<>e)then for g:=0 to 9 do //и if (g<>a)and(g<>b)and(g<>c)and(g<>d)and(g<>e)and(g<>f)then for h:=2 to 2 do //я if (h<>a)and(h<>b)and(h<>c)and(h<>d)and(h<>e)and(h<>f)and(h<>g)then if 2*(a*10000+b*1000+c*100+d*10+e)=e*100000+f*10000+e*1000+a*100+g*10+h then writeln(a*10000+b*1000+c*100+d*10+e,' ',e*100000+f*10000+e*1000+a*100+g*10+h); end.
// Cборка 1590 от 03.12.2017
begin
var a:=ReadReal('Введите зарплату в первый месяц->');
var z:=0.00;
for var i:=1 to 12 do
begin
Writeln('Доход за ',i,' месяц составил ',a:0:2,'р.');
z+=a;
a:=a+a*0.1;
end;
Writeln('Зарплата за год: ',z:0:2,'р.');
end.
Пример:
Введите зарплату в первый месяц-> 100
Доход за 1 месяц составил 100.00 р.
Доход за 2 месяц составил 110.00 р.
Доход за 3 месяц составил 121.00 р.
Доход за 4 месяц составил 133.10 р.
Доход за 5 месяц составил 146.41 р.
Доход за 6 месяц составил 161.05 р.
Доход за 7 месяц составил 177.16 р.
Доход за 8 месяц составил 194.87 р.
Доход за 9 месяц составил 214.36 р.
Доход за 10 месяц составил 235.79 р.
Доход за 11 месяц составил 259.37 р.
Доход за 12 месяц составил 285.31 р.
Зарплата за год: 2138.43 р
P.S Сделал как понял.
//Рюмка+рюмка=авария
var a,b,c,d,e,f,g,h:integer;
begin
for a:=1 to 9 do //р
for b:=0 to 9 do //ю
if (b<>a) then
for c:=0 to 9 do //м
if (c<>a)and(c<>b) then
for d:=0 to 9 do //к
if (d<>a)and(d<>b)and(d<>c) then
for e:=1 to 1 do //а
if (e<>a)and(e<>b)and(e<>c)and(e<>d) then
for f:=0 to 9 do //в
if (f<>a)and(f<>b)and(f<>c)and(f<>d)and(f<>e)then
for g:=0 to 9 do //и
if (g<>a)and(g<>b)and(g<>c)and(g<>d)and(g<>e)and(g<>f)then
for h:=2 to 2 do //я
if (h<>a)and(h<>b)and(h<>c)and(h<>d)and(h<>e)and(h<>f)and(h<>g)then
if 2*(a*10000+b*1000+c*100+d*10+e)=e*100000+f*10000+e*1000+a*100+g*10+h then
writeln(a*10000+b*1000+c*100+d*10+e,' ',e*100000+f*10000+e*1000+a*100+g*10+h);
end.
Результат:
85931 171862