СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ ПОЖАЛУЙСТА ПОМОГИТЕ!
10-11 класс
|
двум приятелям родители подарили по новому мотоциклу .подростки поспорили кто быстрее пройдет обкатку двигателя 2500 км. первый проехал километры за 12 дней, а второй в первый день проехал 150 км, а в каждый следующий он прибавлял 20 км. нужно разрешить их спор и выявить кто сделал обкатку быстрее
const
s = 2500; {пробег для обкатки}
n1 = 12;{число дней, потраченное первым подростком}
var
s0, s2: real;
n2: integer;
begin
s0 := 150;
n2 := 1;
s2 := s0;
while s2 < s do
begin
s0 := s0 + 20; {ежедневный пробег}
s2 := s2 + s0;
n2 := n2 + 1
end;
if n2 > n1 then Writeln('2-й подросток завершил обкатку позже на ', n2 - n1, ' дн.')
else if n2 = n1 then Writeln('Оба подростка завершили обкатку одновременно')
else Writeln('2-й подросток завершил обкатку раньше на ', n1 - n2, ' дн.')
end.
Решение:
2-й подросток завершил обкатку раньше на 1 дн.
Т.е во второй день он проехал 150+20=170 км, в третий 170+20=190 км... а всего 150+170+190+... пока 2500 не набрал?
Комментарий удален
Тогда все просто...
Другие вопросы из категории
В матрице X(5×5) определите произведение положительных элементов
главной диагонали.
цифровых и визуальных эфектов. Это фильм
А)"Армагедон" Б)"2001: Космическая одисея"
В)"Звёздные воины" Г)"Звёздный путь"
Читайте также
программу на Паскале пожалуйста помогите срочно
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
Имеется
массив А из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и
равные нулю. Используя оператор цикла, составить программу, выполняющую задачу: