Мыположилив банкSрублей. За годмыполучим P% Используя цикл с условием определить за какой срок сумма вложенных денег увеличится в два раза?
10-11 класс
|
program zadacha_bank;
uses crt;
var s,p,i:integer;
x:real;
begin
clrscr;
readln(s);
readln(p);
x:=s;
i:=0;
While x<s*2 do begin
x:=x+(x/100*i);
i:=i+1;
end;
writeln(i);
end.
Program sweta_bank;
uses crt;
var s,p,i:integer;
x:real;
begin
write('Введите начальную сумму вклада '); readln(s);
write('Введите %-ную ставку '); readln(p);
x:=s;
i:=0;
while x<s*2 do begin
x:=x+(x/100*i*(p/12));
i:=i+1;
writeln(x);
end;
writeln('При условии ежемесячного начисления процентов по вкладу');
writeln('вклад удвоится через ',i div 12,' лет и ',i mod 12,' месяцев и составит ',x,' рублей');
end.
Другие вопросы из категории
Дана квадратная матрица n-го порядка. Найти норму матрицы. Нормой матрицы считать максимум из абсолютных величин ее элементов.
Миша, Игорь, Эдик, фамилии: Симаков, Чигрин, Зимин, Копылов, Блинов (имена и фамилии названы в различном порядке). Нашлись знатоки, которые предсказали, что первое место займёт Копылов, второе - Валерик, третье - Чигрин, четвёртое - Эдик. Но ни один из ребят не занял того места, какое ему предсказывали. На самом деле первое место завоевал Миша, второе - Симаков, третье - Коля, четвёртое - Блинов, а Чигрин не попал в четвёрку сильнейших. Назовите имя и фамилию каждого из лидеров.
1) программные
2) технические
3) морально-этические
4) организационные
5) законодательные
Читайте также
суммирование произвольного количества целых чисел вводимых с клавиатуры.Концом последовательности служит ввод отрицательного числа.Программу составьте двумя способами: использую цикл с предусловием и цикл с постусловием
удобнее использовать цикл while, в котором значение x можно изменять при каждом шаге на Dx=0.1
Ничего из вышеперечисленного.
Бесконечный цикл: Можно остановить путем ввода данных пользователем; Приводит к останову программы Можно использовать для создания короткой паузы в выполнении программы; Приводит к повторению некоторой части программы, пока не будет нажата клавиша “СТОП”.
Можно организовать цикл, повторяющийся до тех пор, пока не выполнится логическое условие с помощью операторов: FOR … NEXT IF… THEN GOTO Все вышеперечисленное.
Содержащаяся одна в другой циклические структуры называются: Вложенными; Простыми; Последовательными; Ничего из вышеперечисленного.
Какая из следующих строк может быть начальной строкой цикла FOR…NEXT: FOR A$=1 TO 15 FOR A=1 TO 15 FOR A=1 TO=15 FOR 4A=1 TO 15
Цикл FOR…NEXT приводит к повторению некоторой части программы, которая носит название: Тело цикла; Глубина цикла; Параметр цикла; Приращение.
Потом такую же только цикл с предусловием, и еще одну цикл с постусловием