Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
ābuttt
13.02.2021 07:47 •
Информатика
Pascal. банковский вклад равен 2500 руб. процентная ставка 19 процентов годовых. через сколько лет банковский вклад станет 5000 рублей. требуется , учитель темы не объясняет
👇
Увидеть ответ
Ответ:
рис18
13.02.2021
Var
s: real;
n: integer;
begin
s := 2500;
n := 0;
repeat
s := 1.19 * s;
Inc(n)
until s >= 5000;
Writeln(n+1)
end.
Тестовое решение:
5
4,7
(30 оценок)
Открыть все ответы
Ответ:
viktoriag373
13.02.2021
25
[0, 0, "a", 1]
[1, 1, "b", 2]
[1, 2, "bb", 3]
[2, 2, "b", 4]
[1, 3, "bbb", 5]
[2, 3, "bb", 6]
[3, 3, "b", 7]
[1, 4, "", 8]
[2, 4, "bbb", 9]
[3, 4, "bb", 10]
[4, 4, "b", 11]
[1, 5, "", 12]
[2, 5, "", 13]
[3, 5, "bbb", 14]
[4, 5, "bb", 15]
[5, 5, "b", 16]
[0, 6, "aa", 17]
[6, 6, "a", 18]
[6, 7, "aa", 19]
[7, 7, "a", 20]
[6, 8, "aaa", 21]
[7, 8, "aa", 22]
[8, 8, "a", 23]
[5, 9, "baaab", 24]
[9, 9, "b", 25]
s = "aaaab"
n = 0
for r in 0...s.size
for l in 0..r
t = s[l..r]
if t.reverse == t
n += 1
p [l,r,t,n]
end
end
end
4,6
(8 оценок)
Ответ:
Gelag
13.02.2021
Var
N, s, i: Integer;
s1: real;
begin
readln(N); {общий ввод для всех задач}
if N < 0 then
writeln('Задача 1. N=', 0)
else writeln('Задача 1. N=', N + 4);
s := 0;
for i := 1 to n do
s := s + i;
writeln('Задача 7. 1+2+3+…+N=', s);
write('Задача 9. Последовательность от N до 1 = ');
for i := n downto 1 do
write(i, ' ');
writeln();
s1 := 0;
for i := 1 to n do
s1 := s1 + i / 10;
writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
write('Задача 13. Последовательность квадратов от 1 до N = ');
for i := 1 to n do
write(i * i, ' ');
writeln();
write('Задача 14. Последовательность первых N нечетных чисел = ');
for i := 1 to n do
write(2 * i - 1, ' ');
writeln();
if N > 0 then
writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
s := 0;
for i := 1 to n do
if n mod i = 0 then
s := s + i;
writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.
4,6
(95 оценок)
Это интересно:
Д
Дом-и-сад
11.04.2023
Как вырастить росянку...
О
Образование-и-коммуникации
03.11.2022
Как позвонить в Лондон: Полезная информация для тех, кто хочет оставаться на связи...
К
Компьютеры-и-электроника
10.01.2020
Как стать рыцарем класса Sheath в игре Elsword: полный гайд для начинающих игроков...
О
Образование-и-коммуникации
02.07.2021
Как решать квадратные неравенства...
К
Компьютеры-и-электроника
24.01.2023
Как создать кухню в Minecraft...
В
Взаимоотношения
23.03.2021
Как объяснить другу, что вам нужно свободное пространство...
З
Здоровье
06.02.2023
Как избавиться от изжоги народными средствами: решение проблемы без лекарств...
М
Мир-работы
07.11.2022
Как разговаривать на рабочем месте: секреты эффективного коммуникативного процесса...
Х
Хобби-и-рукоделие
18.07.2020
Как обновить имидж куклы Барби...
19.04.2021
Как развивать позитивное отношение: советы и рекомендации...
Новые ответы от MOGZ: Информатика
MARCOM03
25.03.2020
Кто помнит что делать чтобы свой сервер при входе не писал Steam validation rejected. Там вроде сначала пишется sv_......
artemcxt
03.05.2022
Буду очень благодарен Буду очень благодарен >...
Funik228
12.05.2020
Может кто-то знает как сделать правильно? Буду очень благодарна!...
Margaryaanmag
01.05.2021
Напишите программу на языке программирования pascal. дано натуральное число n. если число большое нуля, то вывести это число, увеличенное в 7 раз, а иначе вывести квадрат этого...
toshakotik
29.12.2020
Вкаких отраслях труд человека целеобразнее заменить трудом эвм?...
olliu56
16.10.2021
E-8210604a на ps4 ничего не могу купить, пополнить кошелёк в пс4,менял почту не Покупал гта оплаты приват24)...
djam111
06.01.2020
Книга,набранная с компьютера содержит 420 страниц,на каждой странице - 30 строк,в каждой строке - 50 символов.каков объём информации в книге? напишите обязательно дано,найти...
doc9w
06.01.2020
Какому цвету в цветовой модели rgb соответствуют значения интенсивностей цветовых компонент (255, 0, 0)? белому чёрному синему красному зелёному...
chmv555
07.09.2022
Выберите правильные утверждения 1.цветовая модель cmyk применяется для отражённого цвета 2.цветовая модель rgb применяется для излучённого цвета 3.цветовая модель rgb чаще применяется...
sharamat2001
07.04.2022
составить пирамиду критика по роману робинзон крузо...
MOGZ ответил
Найдите основание прямоугольной трапеции, если её большая диагональ равна...
Катеты прямоугольного треугольника соответственно равны 1 см и √3.чему равна...
Можно ли с цифр 1, 2, 5, 6 без повторения составить трехзначное число которое...
Язык 6 класс 3. choose the correct response. 1) is there a cinema near here?...
Найдите значения коэффицента k,если известно,что график функции y=k/x проходит...
Уменя сессия по обществознанию. нужны ответы . самовоспроизводство (виды)...
Вид однососотавного предложения двадцать пятое января...
Впрямоугольнике abcd, ad=6. найдите площадь прямоугольника, если диагональ...
Нужно написать 2 слова мн.ч и.п. 2 скл. ср.р с окончаниями «и»...
Составить предложение со словами снежную шапку...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
s: real;
n: integer;
begin
s := 2500;
n := 0;
repeat
s := 1.19 * s;
Inc(n)
until s >= 5000;
Writeln(n+1)
end.
Тестовое решение:
5