var s,vk:real;
m:integer;
begin
s:=100000;
vk:=0;
m:=0;
while vk<=30 do
begin
vk:=vk+0.04*s;
s:=1.04*s;
m:=m+1;
end;
write(m);
end.
Это решение для ваших параметров.
Uses Crt;
var s,vk,pc:real;
m:integer;
begin
clrscr;
Writeln('Введите сумму вклада:');
Read(s);
Writeln('Введите месячный процент(%):');
read(pc);
pc:=pc/100;
vk:=0;
m:=0;
while vk<=30 do
begin
vk:=vk+pc*s;
s:=(1+pc)*s;
m:=m+1;
end;
write('Вклад превысит 30 руб через ',m,' месяцев');
end.
Это решение для задаваемых параметров
Вопросы, недочеты в ЛС
По каналу связи непрерывно в течении 10 часов передаются данные. Скорость передачи данных в течении первых 6 часов составляет 512 Кбит в секунду, а остальное время - в два раза меньше. Сколько Мбайт данные было передано за время работы канала?
решение:
Объём информации вычисляется по формуле Q = q * t, где t — время передачи q — cкорость передачи данных.
Учтём, что в одном часе 3600 секунд, поэтому
Q = 512 Кбит/с * 6 * 3600 с + 512 / 2 Кбит/с * (10 - 6) * 3600 с = 14 745 600 Кбит = 1 843 200 Кбайт = 1800 Мбайт.
ответ: 1800.
Напишите мне письмо, я вам прекреплю файль с решением еще задания