DIM i AS INTEGER DIM n AS INTEGER DIM max AS INTEGER INPUT "INPUT n", n max = 0 FOR i = 1 TO n INPUT "a ?", a IF a > 0 THEN IF a > max THEN max = a END IF END IF NEXT i PRINT max END
Это так называемые простые числа Ферма. Они имеют вид: При n = 0, 1, 2, 3, 4 получаются числа: 2^1 + 1 = 3; 2^2 + 1 = 5; 2^4 + 1 = 17; 2^8 + 1 = 257; 2^16 + 1 = 65537. И они действительно все простые. Но уже 6-ое число 2^32 + 1 - составное. Больше всего эти числа известны тем, что правильные многоугольники с таким (и кратным ему) количеством сторон можно построить циркулем и линейкой. Как строить правильный треугольник, квадрат и 6-угольник, учат в школе. Некоторые (не все) учителя учат, как построить правильный 5-угольник. Карл Фридрих Гаусс придумал, как построить правильный 17-угольник. За это ему присвоили титул "Король математиков".
DIM n AS INTEGER
DIM max AS INTEGER
INPUT "INPUT n", n
max = 0
FOR i = 1 TO n
INPUT "a ?", a
IF a > 0 THEN
IF a > max THEN
max = a
END IF
END IF
NEXT i
PRINT max
END