Задано мощности шести генераторов переменного тока: 5, 9, 15, 27, 46 и 60 квт и соответствующие их массы: 30, 52, 90, 155, 270 и 465кг. нужно вычислить значение мощности, приходящейся на единицу массы каждого генератора, квт / кг. програма на паскале.

Var a:array [1..6] of integer;    b:array [1..6] of integer;    c:array [1..6] of real;    i:integer;  begina[1]:=5;     b[1]:=30;a[2]:=9;     b[2]:=52;a[3]:=15;    b[3]:=90;a[4]:=27;    b[4]:=155;a[5]:=46;    b[5]:=270;a[6]:=60;    b[6]:=465;for i:=1 to 6 doc[i]:=a[i]/b[i];for i:=1 to 6 dowriteln('кВт/кг ',i,'-го генератора = ',c[i]);end.

Program Test;

Var
a1, a2, d, k, max, tmp: integer;
sum: real;
rule: boolean;

Begin

Writeln('Введите а1 и а2');
Readl(a1, a2);

k := 2;
d := a2 - a1;
rule := true;

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)

Program Test;

Var
a1, a2, d, k, max, tmp: integer;
sum: real;
rule: boolean;

Begin

Writeln('Введите а1 и а2');
Readl(a1, a2);

k := 2;
d := a2 - a1;
rule := true;

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)