Помогите плиииз!!!! Оператор цикл с параметром! 1.Отыскать сумму и творенье каждого

Помогите плиииз!!!! Оператор цикл с параметром! 1.Найти сумму и творенье каждого третьего числа поочередного целочисленного ряда от 3 до 18, т.е. ряд: 3, 4, 5, 6, 7, 8,..., 17, 18. Сумма=5+8+...
2. Сбербанк взял на 5 лет на депозит 10000 рублей под 10% годовых в 2010 году у человека деньги. Сколько средств вкладчик получит через 5 лет. Вывести сумму на каждый год с учетом %. В формате: год - сумма.

Задать свой вопрос
1 ответ
PascalABC.Net

1)
 var   
i,s,p : integer;  
begin 
s := 0; 
p := 1;
   for i := 3 to 18 do     
if (i-2) mod 3  = 0 then     
begin       
s := s + i;       
p := p * i;     
end;
        
writeln ('s=',s);   
writeln ('p=',p); 
end.

2)
Программа не зачисляет процент в первый год, если необходимо, чтоб зачислила, то поменяй местами строчки вывода и присвоения снутри цикла
 var   
i : integer;   
s : real;    
begin 
s := 10000;   
for i := 2010 to 2015 do   
begin     
writeln (i,'-',s);     
s := s * 1.1;   
end; 
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт