я думаю тебе хватит около 10 предложениях. безопасность в интернете это самое главное что нужно нам современным людям. но безопасных сайтов мало . мы можем заразить свой пк вирусом или другой вредоносной программой которая грозит компьютеру заблокироваться. так что проверяйте сайты на вирусы и тогда вы будете уверены что этот сайт будет безопасным. сейчас много антивирусных программ которые защищают наш компьютер и специальные модемы например: мегафон для детей . будьте
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; beginclrscr; writeln('введите сумму вклада: '); read(s); writeln('введите месячный процент(%): '); read(pc); pc: =pc/100; vk: =0; m: =0; while vk< =30 dobeginvk: =vk+pc*s; s: =(1+pc)*s; m: =m+1; end; write('вклад превысит 30 руб через ',m,' месяцев'); end.
это решение для задаваемых параметров
вопросы, недочеты в лс
Поделитесь своими знаниями, ответьте на вопрос:
блок схемы кстати нет, так что не обессудь
1024
x=0
x=x+1
x=x+1
x=x*2 (9раз)
500
x=0x=x+1x=x+1x=x+1x=x*2x=x+1x=x*2x=x+1x=x*2x=x+1x=x*2x=x*2x=x+1x=x*2x=x*2