В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 1, 12, 23, 34, 45, 56, 67, 78, 89, 90, т.е. A[0]=1, A[1]=12 и т.д. Определите значение переменной s после выполнения следующего фрагмента программы:
s:=5;
n:=10;
for i:=1 to n-1 do begin
s:=s+A[i]*A[i]-A[i-1]*A[i-1];
end;
Вводим 200 Вывод 220
Объяснение:
var s, n, i: integer;
begin
for i:=200 to 250 do //Создаём цикл, который будет прогонять
begin // значения S от 200 до 250
s:=i; // логичнее начинать i c 200 т.к. while работает
n := 100; // при условии, что s- 100 >= 100
while s - n >= 100 do
begin
s := s + 20;
n := n + 40;
end;
writeln(i, ' ',s) // вывод всех значений от 200 до 250
end; // выбираем нужный
end.
end.
ответ:
- Петя учится в 35 школе и ходит в шахматную секцию
- Ваня учится в 47 школе и ходит в баскетбольную секцию
- Витя учится в 52 школе и ходит в футбольную секцию