Помогите,пожалуйста Решить 2 задачи с использованием всех трех видов цикловЗадача 1...

Question

Помогите,пожалуйста Решить 2 задачи с использованием всех трех видов цикловЗадача 1 Посчитать итоговую сумму денег на банковском вкладе за N лет при P процентах годовых.Эту задачу решить с помощью трех типов циклов. Но используя цикл с предусловием или с постусловием, переменная, определяющая условие, работает как счетчик (наращивается на 1). Поэтому решение этой задачи с помощью цикла со счетчиком является наиболее коротким.Задача 2 Найти сумму квадратов всех натуральных чисел от 1 до 100. Решим эту задачу с использованием всех трех видов циклов.I. С использованием цикла "Пока".II. С использованием цикла "До".III. С использованием цикла "С параметром".Заранее спасибо!

Answer 1

Ответ:

Задание 1

program HelloMoney;

 var

 y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла  

p, s: real; //Объявим переменные для количества процентов и величины вклада

begin

write('Какая сумма вклада? ');

readln(s); // Указываем сколько составляет вклад

write('На сколько лет вклад? ');

readln(y); // Указываем на сколько лет вклад

write('Какая процентная ставка?');

readln(p); // Указываем процентную ставку

for i:=1 to y do

s := s + s*p/100; // Прибавляем к вкладу ежегодный процент

write('Сумма денег составит: ', s);

end.

Объяснение: