tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу в паскале
Написать программу в паскале в банк под 3% годовых кладут 1000 рублей. через сколько лет сумма на вкладе будет 1500 рублей?
Кица234
3 05.06.2019 15:20
5
Ответы
юляФ1
06.07.2020 01:47
Var
a:real;
b, c: integer;
begin
b:=0;
a:=1000;
while a<=1500 do
begin
a:=a+(a*0.03);
inc(c);
end;
write ('Через ', c,'лет ');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Arina3010
08.09.2019 23:30
Вам нужно умножить некоторое большое число x на 15. у вас есть калькулятор, но на калькуляторе сломались все кнопки операций, кроме сложения. поэтому вы можете...
thedvoichnik
08.09.2019 23:30
1. в одной из кодировок unicode каждый символ кодируется 16 битами. определите размер следующего предложения в данной кодировке: я вас любил безмолвно, безнадежно,...
Lily566
04.10.2019 17:10
Объём файла 120 мб , время 16 мин скорость ? ответ дайте в кб/сек...
Марано
04.10.2019 15:30
б) какой вид памяти служит для ускорения работы процессора копишите процесс создания архивного файла на компьютере программой rar...
alinakat98
04.10.2019 17:10
Дан фрагмент программы. for i: = to n if (a[i] mod 5=0) and (a[i] 0) then kol: =kol+1; после его выполнения значение переменной kol равно: 1)количеству элементов...
vanyabond2611
04.10.2019 06:40
Какие значения могут попасть в элементы массива при его заполнении program 1; var a: array [1..100] of integer; i,n: integer; begin readln(n); for i: =1 to n do...
gjhjcznrj
16.06.2019 07:50
Определите количество натуральных чисел не превышающих 20010, для которых выполняется условие: в записях числа в семеричной и четырнадцатеричной системах счисления...
alyamiller1513
27.09.2019 23:10
Написать сочинения на тему секреты моего лета...
kostya79bat1
27.09.2019 23:10
Пятая часть от числа неизвестного равна 13...
SashaRary
27.09.2019 23:10
Сделать синтаксический разбор предложений все 1)дикие гуси в этом году долго готовились к отлёту 2)не одного звука не слышу не одна травинка не шелахнется 3) я...
Популярные вопросы
Дано угол2+угол1=180°.докозать угол3=углу4...
2
Найти проверочное слова к слову забинтовали .....
3
В150 г воды растворили 50 г соли. какова концентрация раствора?...
3
Периметр квадрата равен 8см чему будут равны стороны и площадь...
2
Унас зимують такі птахи у теплі краї відлітають навесні всі...
3
Решите уравниения 3cos^2x-5cosx+2=0...
3
Какие из данных величин можно вычесть из вместимости 250 л ?...
3
Решить пример модуль |5,1|+|-9,9| и напишите как его решать...
3
Составьте сложное предложение со словом за !...
2
найдите сопротивление платина проволоки длиной 1 м. и сечением...
1
a:real;
b, c: integer;
begin
b:=0;
a:=1000;
while a<=1500 do
begin
a:=a+(a*0.03);
inc(c);
end;
write ('Через ', c,'лет ');
end.