Задано мощности шести генераторов переменного тока: 5,9,15,27,46 и 60 квт и соответствующие их массы: 30,52,90,155,270 и 465кг. нужно вычислить значение мощности, приходящейся на единицу массы каждого генератора, квт / кг. програма на паскале.
while (rule = true) do begin k := k + 1; tmp := a1 + k * d;
if (tmp < 50) then max := tmp
else rule := false;
end;
sum := (a1 + max) / 2 * k;
Writeln(); Writeln('Сумма = ', sum);
End.
Программа будет работать только для арифметических прогрессий, например, таких, как последовательность из задания. Вводить нужно 2 целых числа (первые два члена прогрессии) через пробел (в вашем случае 4 и 7)
while (rule = true) do begin k := k + 1; tmp := a1 + k * d;
if (tmp < 50) then max := tmp
else rule := false;
end;
sum := (a1 + max) / 2 * k;
Writeln(); Writeln('Сумма = ', sum);
End.
Программа будет работать только для арифметических прогрессий, например, таких, как последовательность из задания. Вводить нужно 2 целых числа (первые два члена прогрессии) через пробел (в вашем случае 4 и 7)
