Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Walterwolf
0 / 0 / 2
Регистрация: 13.12.2015
Сообщений: 61
#1

Определить, через сколько часов лыжник преодолеет более 33 км? - Pascal ABC

14.06.2016, 17:18. Просмотров 182. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста с задачей.
В первый час лыжник проходит 8 км. Каждый следующий час его скорость снижается на 10%. Через сколько часов он преодолеет более 33 км?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2016, 17:18
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, через сколько часов лыжник преодолеет более 33 км? (Pascal ABC):

Определить, через сколько часов станет более X амеб, если первоначально она была одна
Одноклеточная амеба каждые три часа делится на две клетки. Определить, через...

Определить, сколько амеб будет через несколько часов
одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько...

Определить, сколько голов через T часов останется у змея Горыныча
Илья Муромец, собрался биться со змеем Горынычем. До начала боя у Горыныча было...

Определить, через сколько часов количество амеб достигнет 50 клеток?
Амеба каждые 3 часа делится на 2 клетки. Через сколько часов количество амеб...

Определить, сколько лыжник пробежит за N дней
Начав тренировку лыжник в 1 день пробежал 10 км. Каждый следующий день он...

Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько клеток будет через n часов
Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько...

1
Peoples
1271 / 776 / 730
Регистрация: 06.02.2016
Сообщений: 2,085
Записей в блоге: 15
Завершенные тесты: 4
14.06.2016, 17:48 #2
Лучший ответ Сообщение было отмечено Walterwolf как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program pr;
var
   cout: integer;
  s, v0: real;
begin
  s := 8;
  v0 := 8;
  cout := 1;
  repeat 
    v0 := (v0 - v0 * 0.1);
    s := s + v0;
    cout := cout + 1;
  until s > 33;
  writeln('Через ', cout, ' часов лыжник преодолеет большее 33 км');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2016, 17:48
Привет! Вот еще темы с решениями:

Одноклеточная амеба каждые 2 часа делиться на 2 клетки.Определить сколько амеб будет через n часов
Одноклеточная амеба каждые 2 часа делиться на 2 клетки.Определить сколько амеб...

Определить через сколько дней спортсмен пробежит суммарный путь более N км
Имя входного файла z261.in Имя выходного файла z261.out Спортсмен в первый...

Определить через сколько дней спортсмен пробежит суммарный путь более 100 км
8. Спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал...

Определить, сколько часов работал станок
Помогите перевести в PascalABC, буду очень благодарен. program ZAVOD; uses...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru