Некто положил в банк s рублей. через сколько лет сумма вклада более, чем в 2 раза превысит первоначальный вклад, если годовой процент составляет x%.паскаль
Var s,x,sum:real; k:integer; begin write('s = '); readln(s); write('x = '); readln(x); sum:=s; k:=0; while sum<=2*s do begin k:=k+1; sum:=sum+sum*x/100; end; writeln('k = ',k); end.
Пример: s = 2000 x = 10 k = 8
gorovoy-dv4088
03.03.2020
Пешеходу запрещается: 1. двигаться по краю проезжей части дороги при наличии тротуара, пешеходной или велосипедной дорожки, обочины, по которым возможно движение пешеходов.2. задерживаться и останавливаться на проезжей части дороги, в том числе на линии горизонтальной дорожной разметки, разделяющей встречные и попутные потоки транспортных средств, за исключением остановки на островках безопасности.3. переходить проезжую часть вне подземного, надземного, наземного пешеходных переходов на участке дороги: - с разделительной зоной, разделительной полосой; - с общим числом полос движения шесть и более; - где установлены дорожные ограждения.4. выходить на проезжую часть дороги из-за стоящего транспортного средства или иного объекта, ограничивающего обзорность дороги, не убедившись в отсутствии приближающихся транспортных средств.
Самохвалова-Геннадьевна
03.03.2020
Пошаговая детализацияпредставляет собой простой процесс, предполагающий первоначальное выражение логики модуля в терминах гипотетического (условного) языка высокого уровня с последующей детализацией каждого предложения в терминах языка более низкого уровня, до тех пор, пока, наконец, не будет достигнут уровень используемого языка программирования. здесь уместно напомнить: чем меньше язык содержит деталей, тем более он высокого уровня. можно считать языком самого высокого уровня обычную человеческую речь, а языком низкого уровня — машинный язык.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Некто положил в банк s рублей. через сколько лет сумма вклада более, чем в 2 раза превысит первоначальный вклад, если годовой процент составляет x%.паскаль
begin
write('s = ');
readln(s);
write('x = ');
readln(x);
sum:=s; k:=0;
while sum<=2*s do
begin
k:=k+1;
sum:=sum+sum*x/100;
end;
writeln('k = ',k);
end.
Пример:
s = 2000
x = 10
k = 8