Цикл repeat. Стоимость акций известной фирмы стабильно растёт на протяжении 6 месяцев. Найти стоимость акций

@SmileSTR · Регистрация: 12.04.2012

Author24 — интернет-сервис помощи студентам

Пожалуйста решите с циклом repeat.

Стоимость акций известной фирмы стабильно растёт на протяжении 6 месяцев, каждый месяц на 0,6%. Найдите среднюю стоимомсть акций за эти полгода, если известно, что начальная стоимость их была К$

@DaskOFF · 31.05.2012, 11:16

Pascal

uses crt;
var
    k,sum:real;
    sr,count:longint;
    
begin
clrscr;
count:=0;sum:=0;
write('Введите стоимость акций');
readln(k);
repeat
    k:=k*1.6;
    sum:=sum+k;
    inc(count);
until count=6;
sr:=round(sum/6);
writeln('Средняяя стоимость акций через полгода: ',sr);
write('Для выхода нажмите Enter');
readln;
end.

@SmileSTR · 31.05.2012, 11:51 **[ТС]**

Спасибо очень очень благодарен :*:*:*:*

@SmileSTR 0 / 0 / 0 Регистрация: 12.04.2012 Сообщений: 21
		1
	Цикл repeat. Стоимость акций известной фирмы стабильно растёт на протяжении 6 месяцев. Найти стоимость акций 31.05.2012, 10:49. Показов 1685. Ответов 2 Метки нет (Все метки) Пожалуйста решите с циклом repeat. Стоимость акций известной фирмы стабильно растёт на протяжении 6 месяцев, каждый месяц на 0,6%. Найдите среднюю стоимомсть акций за эти полгода, если известно, что начальная стоимость их была К$ 0

@SmileSTR 0 / 0 / 0 Регистрация: 12.04.2012 Сообщений: 21
	31.05.2012, 11:51 [ТС]	3
	Спасибо очень очень благодарен :::: 0

Цикл repeat. Стоимость акций известной фирмы стабильно растёт на протяжении 6 месяцев. Найти стоимость акций

Решение