Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
anfisachupina85
29.01.2022 07:54 •
Информатика
Вот текстовый файл: 1000 строк по 33 цифры, разделённых пробелами. Ваша задача - сосчитать, сколько в файле строк, в которых можно найти три одинаковых цифры подряд
Показать ответ
Ответ:
sibbb
18.02.2020 12:51
{pascal, консольный ввод}
var
velichina_vklada, srok_vklada, godovaya_procentnaya_stavka: integer;
vklad_s_procentami: real;
vklad_s_procentami_rub, vklad_s_procentami_kop: integer;
dohod_rub, dohod_kop: integer;
begin
write('Величина вклада (р.) - ');
readln();
write('Срок вклада (дней) - ');
readln(srok_vklada);
write('Годовая процентная ставка (%) - ');
readln(godovaya_procentnaya_stavka);
vklad_s_procentami := velichina_vklada * ((real(100) + real(godovaya_procentnaya_stavka)*real(srok_vklada)/365)/100);
dohod_rub := (velichina_vklada - integer(vklad_s_procentami));
dohod_kop := (velichina_vklada*100 - integer(vklad_s_procentami*100)) mod 100;
vklad_s_procentami_rub := integer(vklad_s_procentami);
vklad_s_procentami_kop := integer((vklad_s_procentami*100)) mod 100;
writeln('Доход: ', dohod_rub,' р. ', dohod_kop, ' 80 коп.');
writeln('Сумма по окончании срока вклада: ', vklad_s_procentami_rub, ' р. ', vklad_s_procentami_kop, ' коп.');
end.
0,0
(0 оценок)
Ответ:
Bauer322
18.02.2020 12:51
Я не экономист и не экстрасенс, так что если именно сама формула подсчета дохода неверна - меняйте сами, я ее просто нашла в интернете.
var
vklad, dohod, summa, stavka: real;
srok: integer;
begin
write('Величина вклада (р.) - ');
readln(vklad);
write('Срок вклада (дней) - ');
readln(srok);
write('Годовая процентная ставка (%) - ');
readln(stavka);
dohod := (vklad*stavka)/(100*365) * srok;
summa := vklad + dohod;
writeln('Доход: ', Trunc(dohod), ' р.', frac(dohod)*100:3:0, ' коп.');
writeln('Сумма по окончании срока вклада: ', Trunc(summa), ' р.', Frac(summa)*100:3:0, ' коп.');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sendrey8542
12.10.2021 13:44
Интересные пк проги, чтоб захватило и не возможно было оттащить...
arslanovaigiz
28.09.2020 09:04
На поле бесконечного размера имеются стенки, образующие пьедестал почёта. Робот расположен ниже пьедестала. Высота и ширина ступенек неизвестны. Робот занял первое место....
McGravii
03.08.2022 18:04
2. Відкрийте головну сторінку сайту Урядовий портал (https://www.kmu. gov.ua.). Ознайомтеся з інтерфейсом і структурою порталу. Визначте можливості цього порталу для...
katy0987
10.08.2020 11:29
Презентация на на тему 3 D печать ...
emilsalimov
10.04.2022 07:16
1. Какое устройство осуществляет обработку информации? а) джойстик б) процессор в) клавиатура г) сканер д) ксерокс е) монитор 2. Какие устройства используются при работе...
аладик2
07.01.2023 03:22
Оно показывает количество значений, которое можно получить, используя только один числовой знак. Место каждой цифры в числе называется *...
инкогнито13131913
26.04.2021 09:52
Напишите программу, заменяющую во введенной строке все буквы «а» на букву «о». Язык программирования python...
Alina23154784
02.11.2022 05:50
Кегл-кольцо. Урок 2 Определить.оРобот бесконечендвигаться впереддаетРобот красныйпока ты не мечтаешьвпередможет ходитьоРоботот объекта 50более смпрочьдвигаться впереддает...
cjjlkfjiii
24.02.2020 19:48
Оглавление – Назначение 2. Вставить название – Назначение 3. Вставить сноску – Назначение...
m3rry1
05.11.2020 00:25
Между населёнными пунктами А, В, С, Д, Е построены дороги, протяжённость которых( в км) приведина в таблице. Определить длинну кратчайшего пути между пунктами А и Е,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
velichina_vklada, srok_vklada, godovaya_procentnaya_stavka: integer;
vklad_s_procentami: real;
vklad_s_procentami_rub, vklad_s_procentami_kop: integer;
dohod_rub, dohod_kop: integer;
begin
write('Величина вклада (р.) - ');
readln();
write('Срок вклада (дней) - ');
readln(srok_vklada);
write('Годовая процентная ставка (%) - ');
readln(godovaya_procentnaya_stavka);
vklad_s_procentami := velichina_vklada * ((real(100) + real(godovaya_procentnaya_stavka)*real(srok_vklada)/365)/100);
dohod_rub := (velichina_vklada - integer(vklad_s_procentami));
dohod_kop := (velichina_vklada*100 - integer(vklad_s_procentami*100)) mod 100;
vklad_s_procentami_rub := integer(vklad_s_procentami);
vklad_s_procentami_kop := integer((vklad_s_procentami*100)) mod 100;
writeln('Доход: ', dohod_rub,' р. ', dohod_kop, ' 80 коп.');
writeln('Сумма по окончании срока вклада: ', vklad_s_procentami_rub, ' р. ', vklad_s_procentami_kop, ' коп.');
end.
var
vklad, dohod, summa, stavka: real;
srok: integer;
begin
write('Величина вклада (р.) - ');
readln(vklad);
write('Срок вклада (дней) - ');
readln(srok);
write('Годовая процентная ставка (%) - ');
readln(stavka);
dohod := (vklad*stavka)/(100*365) * srok;
summa := vklad + dohod;
writeln('Доход: ', Trunc(dohod), ' р.', frac(dohod)*100:3:0, ' коп.');
writeln('Сумма по окончании срока вклада: ', Trunc(summa), ' р.', Frac(summa)*100:3:0, ' коп.');
end.