| Бейсик | Паскаль | Алгоритмический |
|---|---|---|
| FOR n = 1 TO 200 A(n) = n + 100 NEXT n FOR n = 1 TO 200 B(n) = 2*A(n)-500 NEXT n | for n:= 1 to 200 do A[n]:= n+100; for n:=1 to 200 do B[n]:= 2*A[n]-500 | нц для n от 1 до 200 A[n] = n+100 кц нц для n от 1 до 200 B[n] = 2*A[n]-500 кц |
Ответ: