СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ ПОЖАЛУЙСТА ПОМОГИТЕ! двум приятелям родители подарили по новому мотоциклу .подростки поспорили кто быстрее пройдет обкатку двигателя 2500 км. первый проехал километры за 12 дней, а второй в первый ...

СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ ПОЖАЛУЙСТА ПОМОГИТЕ! двум приятелям родители подарили по новому мотоциклу .подростки поспорили кто быстрее пройдет обкатку двигателя 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 дн.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы