tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Решить . процентная
Решить . процентная ставка - 25% годовых. первоначальный вклад составил а рублей. выведите на экране через сколько лет вклад больше с рублей. через паскаль )
MITSUHA
3 27.08.2019 03:30
0
Ответы
barashinaa88
05.10.2020 22:03
Var
A,C,k:real;
Begin
Write('A = ');ReadLn(A);
Write('C = ');ReadLn(C);
k:=0;
While A<=C do
Begin
A:=A*1.25;
k:=k+1;
End;
WriteLn('k = ',k)
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
MinecraftAndSchool
12.12.2021 09:23
.как делать так если что то это divпокажите именно в коде...
lyba228337ggg
30.07.2019 13:50
Всем добра) сколько раз будет выполнен этот цикл? i: =1; while i 3 do begin writeln( ! ); i: =i+1; end;...
NikNameXxX
30.01.2021 23:49
Дано наткральне число n. Знайдіть добуток його цифр ПРОГРАММА ALGO!...
Зубканай
23.04.2021 14:40
Нужно разработать в паскале...
полина18501
23.04.2021 14:39
Нужно составит графики в Excel, за полностью выполненную практическую работу...
agnesa9890
23.04.2021 14:38
. Нужно отсортировать типы данных по ячейкам ( язык Python)...
Bzxbv
18.12.2019 07:25
Решить примеры с корнями. в примере сравнить сначала решить нужно а потом сравнить....
СабинаЛис
18.12.2019 07:25
Сколько молекул содержится в 21г азота?...
КаТюНя234556
18.12.2019 07:25
молчанова т.п. решила подстричь волосы. с этой целью она зашла в одну их парикмахерских города n. в процессе стрижки ей поранили ухо. травма оказалась настолько...
yanavyskubina
18.12.2019 07:26
1)каковы основные значения слова общество 2)в чем проявляется связь общества и природы3) назовите краткое характеризуйте основные сферы общественной жизни4) что...
Популярные вопросы
Что было бы с русской литературой, если из неё убрать бунина?...
1
Вірш про українську мову. 4-6 рядков, не из интернета.и не поэтов....
1
Характер техногенных аварий...
3
решить с ОЧЕНЬ ХОРОШИМ Объяснением Б и Г >...
2
что характерно для древнерусской летературы? Назовите эти свойства...
1
12 Определите и запишите лексическое значение слова «картина»...
1
ЗАДАЧА ПО ФИЗИКЕ 8 КЛАСС задача 2...
3
Найдите значение выражения 450с + 5 / 24 : d при 2) с = 1\90...
1
Найдите значение выражения 1 целая 1/12 :( 2 целых 13/18 - 1...
3
Стандартизация. Что включают в ГОСТ-Р(какие разделы)?...
2
A,C,k:real;
Begin
Write('A = ');ReadLn(A);
Write('C = ');ReadLn(C);
k:=0;
While A<=C do
Begin
A:=A*1.25;
k:=k+1;
End;
WriteLn('k = ',k)
End.