Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
0 / 0 / 0
Регистрация: 17.05.2019
Сообщений: 2

Утренняя пробежка

17.05.2019, 23:41. Показов 2487. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег на 70% от предыдущего значения. По данному числу y определите номер дня, на который пробег спортсмена составит не менее y километров.

Входные данные
На вход программа получает два действительных числа x и y . Числа положительные, действительные, не превосходят 1000, заданы с точностью до шести знаков после запятой.

Выходные данные
Программа должна вывести единственное целое число.
Знаю, что тема заезженная, но прошу помочь!
на сервере информатикс не проходит 2е проверки из 17, из-за этого не засчитывается задание, помогите найти причину почему!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program probegka_1;
var
  a, b: real;
  i, k: integer;
 
begin
  read(a, b);
  k := 1;
  for i := 1 to 1000 do
  begin
    if a >= b then 
    begin
      writeln(k);
      break;
    end;
    a :=a+(0.7 * a);
    k := k + 1;
    
  end;
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
17.05.2019, 23:41
Ответы с готовыми решениями:

Задача утренняя пробежка 1 и 2
В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег на 70% от предыдущего значения. По данному числу...

Пробежка по treeview
Здравствуйте в общем у меня такая проблема я создаю id для бд при помощи Ttreeview. В общем беру все названия ветвей начиная от текущего и...

Пробежка по xml в Delphi
Доброго времени суток, кто подскажет, как допустим обратиться к 3-ему item-у из xml файла http://news.yandex.ru/incident.rss ? Использую...

2
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
18.05.2019, 09:01
Цитата Сообщение от chimichka Посмотреть сообщение
увеличивал пробег на 70%
Это круто, обычно в подобных задачах не более 10%.
Pascal
1
2
3
4
5
6
7
8
9
10
11
var x,y,s:real;
    k:integer;
begin
read(x,y);
k:=1;
repeat
x:=x*1.7;
k:=k+1;
until x>=y;
write(k)
end.
0
0 / 0 / 0
Регистрация: 17.05.2019
Сообщений: 2
19.05.2019, 18:32  [ТС]
с этим кодом не проходит 4 проверки((
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.05.2019, 18:32
Помогаю со студенческими работами здесь

Пробежка по списку с выборкой значений по условию
Имеется лист: List<String> myArray = new {"текст", /*1*/ "один",/*2*/ ...

Рекурсивная пробежка по массиву; глубина ячеек массива заранее неизвестна
Есть массив, его элементами могут быть как данные, так и другие массивы, содержащие в себе массивы, содержащие данные и т.д. Глубина ячеек...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK сделайте это, JDK, то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Перейдите по ссылке:. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru