... INTEGER A = -25: B = 25 M = A: R = F(A) FOR T = A TO B IF F(T) > R THEN M=T R = F(T) END IF NEXT T PRINT M FUNCTION F(x) F = 15*(5+x)*(5+x)+125 END FUNCTION var a,b,t,M,R :integer; Function F(x: integer):integer; begin F := 15*(5+x)*(5+x)+125; end; BEGIN ...
[
Текст
]
Ссылки http://www.schools.keldysh.ru/sch1019/ege2013/Zadanie_INF11_15022013.pdf -- 2192.8 Кб -- 04.01.2002 Похожие документы
... NGC 6231 . Видимая звездная величина . 2,6 m . Экваториальные координаты на 2000 год . a :16ч 54,1м . d :- 41њ 49' . ... Угловой диаметр . 15,0' . Это изображение было получено Дэвидом Малином через 3.9-метровый Англо-Австралийский Телескоп. ...
... M=N/2 | |FOR I=1 TO N | |FOR J=1 TO N | |IF J*(M-1)+J*(N-1)>=M*N-1 AND I+J<=M+N THEN S=S+A(I,J) | |NEXT J | |NEXT I | ... НЦ | |ДЛЯ J ОТ 1 ДО N | |НЦ | |ЕСЛИ (J*(M-1)+J*(N-1)>=M*N-1) И (I+J<=M+N) ТО S:=S+A(I,J) | |КЦ | |КЦ | ...
... 15 мая, понедельник. Марина Цветаева с дочерью прибыли в Берлин. ... Умер P.M. Рильке. 7 февраля. ... Написано 'Новогоднее' - посмертное письмо к P.M. Рильке. 27 февраля. ...
... FOR K=1 TO M |FOR K:=1 TO M DO | |FOR R=1 TO M |FOR R:=1 TO M DO | |B(K,R)=A( ? ) |B[K,R]:=A[ ? ... А) M-(K+1), M-(R-1) Б) M+1-K, M+1-R В) K+1, M+1-R Г) R-K, M-R |21 | ...