Написать программу на языке Paskal. Сторона а первого прямоугольника равна 4 м, а сторона b — 7 м. У каждого следующего прямоугольника сторона а увеличивается на 1 м, а сторона b — неизменная. Определить площадь 15 прямоугольников.
Составляли програму по похожей задачке на вычисление площади круга, но не получается. Во первых, какие цифры писать в строке writeln ('S=',S:?:?) (для круга надо S:4:2). Второе: не пропускает строку a:=a+1; в окне вывода: нельзя изменять значение переменной цикла. А как тогда задать, что сторона меняется.
Исправьте ошибки и объясните здесь не знаю, какие цифры писать
a:=a+1; - "в окне вывода: нельзя изменять значение переменной цикла"
end;
readln;
end.
public static void main(String[] args) throws java.io.IOException{
int c, n = 0, array[];
while((c = System.in.read())==13 || (47<c && c<58 && (n = n*10+c-48)>-1));
if(25<n || c!=10)return;
array = new int[n];
for(c = 0; c<n; c++){
int d = 0; boolean negative = false;
while((d = System.in.read())!=10)
if(47<d && d<58)array[c] = array[c]*10+d-48;
else if(d==45)negative = true;
if(negative)array[c]*=-1;
}
sortArray(array);
for(c = 0; c<n; c++)System.out.print(array[c]+" ");
}
private static void sortArray(int[] array){
for(int c = 0; c<array.length-1; c++){
int b = c, e;
for(int d = c+1; d<array.length; d++)
if(array[d]>array[b])b=d;
e = array[c];
array[c] = array[b];
array[b] = e;
}
}
}