человек положил в банк а рублей. каждый месяц его вклад увеличивался на 3%. напишите программу, выводящую на экран величину каждого вклада через каждый
10-11 класс
|
месяц в течении года. через сколько месяцев его вклад увеличится вдвое от первоначального?
На чём писать? (Язык какой?)
program azazaza;
var n1,n:real;
i,m:integer;
begin
read(n);
n1:=n;
for i:=1 to 12 do begin
n1:=n1+n1*0.03;
if n1/n=2 then m:=i;
end;
writeln('×åðåç 12 ìåñÿöåâ = ',n1);
writeln(' 2 ðàçà áîëüøå áóäåò ÷åðåç ',m);
end.
Другие вопросы из категории
var v,a,b,c,r,h:real;
var num:integer;
begin
writeln('Введите значение num');
writeln('num='); readln(num);
case num of
1: writeln('Введите значения a,b,c');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
v:=a*b*c;
writeln('v=',v:8:3);
2: write('Bвежите значения r');
write('r='); readln(r);
v:=4/3*pi*power(r;3);
writeln('v=',v:8:3);
3: write('Введите значения r,h');
write('r='); readln(r);
write('h='); readln(h);
v:=1/3*pi*sqr(r)*h;
wrireln('v=',v:8:3);
else write(‘Введено число вне диапазона 1-3!’);
end.
пытаюсь написать программу в которой от того какую цифру из трех ты выберешь будет зависеть объем какой из трех фигур надо будет найти. Вижу что ошибка в использовании оператора case, как будто нельзя писать какие-то другие действия кроме write после 1: 2: 3:
а) наибольший элемент из отрицательных;
1 Кбайт=.........байт = ........ бит
7 Кбайт=......... байт = ........ бит
15 Кбайт =........байт = ......бит
Читайте также
1) В банк положили вклад N рублей. Каждый месяц вклад увеличивается на 1%. Определить размер вклада через 5 лет.
2) Дано натурального число. Найти сумму его делителей, не кратных 3.
3) Дано натурального число. Найти его максимальную цифру.
2%). Рассчитать цены каждого товара на 1-е число каждого месяца и конец года, компенсирующие потери от инфляционного процесса.
имеющейся суммы . Составить программу,которая определяет сумму вклада через n месяцев
прирост суммы вклада за первый, второй, ..., десятый месяц; б) сумму вклада через три, четыре, ..., двенадцать месяцев.
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.