Вывести размер вклада для каждого месяца

@Oksanaa · Регистрация: 23.12.2011

1.Размер первоначального банковского вклада генерируется случайным образом (2000-10000). Размер процентной ставки от 1 до 3 процентов в месяц. Вывести размер вклада для каждого ме-сяца, если вклад находится в банке полтора года и каждый месяц счет пополняется платежом в размере 100).

2.Даны три числа. Найти их наибольший общий делитель.

@goodvin1709 · 23.12.2011, 19:43

Pascal

Program by_Goodvin1709;
var
q,i:Integer;
Proc,Money:Real;
 
begin
Money:=((Random(8)+1)*1000)+Random(1000);
writeln(money:4:1);
For i:=1 to 18 do
begin
Q:=Random(3)+1;
Proc:=(money/100)*q;
Money:=money+100+Proc;
Writeln('Месяц:',i,' Денег в банке:',money:4:1,'  Процент(%)Банка ',q);
end;
end.

Подправь Рандомность стартовых денег

@Oksanaa 0 / 0 / 0 Регистрация: 23.12.2011 Сообщений: 4
		1
	Вывести размер вклада для каждого месяца 23.12.2011, 18:06. Просмотров 924. Ответов 1 Метки нет (Все метки) 1.Размер первоначального банковского вклада генерируется случайным образом (2000-10000). Размер процентной ставки от 1 до 3 процентов в месяц. Вывести размер вклада для каждого ме-сяца, если вклад находится в банке полтора года и каждый месяц счет пополняется платежом в размере 100). 2.Даны три числа. Найти их наибольший общий делитель. 0

Опции темы

Вывести размер вклада для каждого месяца

Решение