Question

Паскаль! Нач. уровень. С использованием WHILE Гражданин 1 марта открыл счет в банке вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить: 1)сколько денег будет на счете через 6 мес; 2) Через сколько месяцев размер вклада превысит 1200 руб.; 3) За какой месяц величина ежемесячного вклада превысит 50 руб.

Answer 1

program t;

var

a,c:real;

i:integer;

begin

i:=1;

a:=1000;

write('1');

while(i<>6) do

 begin

  a:=a+a*(2*0.01);

  inc(i);    

 end;

writeln('Спустя ',i,' месяцев =',a:4:2);

a:=1000;

i:=1;

write('2');

while(true) do

 begin

  a:=a+a*(2*0.01);

  inc(i);

  if(a>1200)then begin writeln('Через ',i); break; end;

 end;

a:=1000;

c:=0;

i:=1;

write('3');

while(true) do

 begin

  c:=a*(2*0.01);

  a:=a+c;

  inc(i);

  if(c>50) then begin writeln('через ',i,' месяцев'); break; end;

 end;

 

end.

Answer 2

Для решения данной задачи на языке программирования Паскаль с использованием цикла WHILE, нужно последовательно выполнить несколько шагов. Я покажу вам код, который решит все три задачи:

pascalCopy code
program BankDeposit;
var
  deposit, targetAmount: real;
  months, monthCount: integer;
const
  initialDeposit = 1000;
  monthlyInterest = 0.02;

begin
  // 1) Сколько денег будет на счете через 6 месяцев
  deposit := initialDeposit;
  months := 6;
  monthCount := 0;

  while monthCount < months do
  begin
    deposit := deposit + (deposit * monthlyInterest);
    monthCount := monthCount + 1;
  end;

  writeln('Через 6 месяцев на счете будет ', deposit:0:2, ' руб.');

  // 2) Через сколько месяцев размер вклада превысит 1200 рублей
  deposit := initialDeposit;
  targetAmount := 1200;
  monthCount := 0;

  while deposit < targetAmount do
  begin
    deposit := deposit + (deposit * monthlyInterest);
    monthCount := monthCount + 1;
  end;

  writeln('Размер вклада превысит 1200 рублей через ', monthCount, ' месяцев.');

  // 3) За какой месяц величина ежемесячного вклада превысит 50 рублей
  deposit := initialDeposit;
  targetAmount := 50;
  monthCount := 0;

  while deposit < targetAmount do
  begin
    deposit := deposit + (deposit * monthlyInterest);
    monthCount := monthCount + 1;
  end;

  writeln('Ежемесячный вклад превысит 50 рублей через ', monthCount, ' месяцев.');
end.

Программа выведет результаты для каждого из трех пунктов задачи.