Uses crt; const n=5; var a: array[1..n] of integer; i , s: integer; begin clrscr; s:=0; for i:=1 to n do begin read(a[i]); s:=s+a[i]; end; writeln('Среднее арифмитическое = ', s/5:3:1); readln; 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-угольник. За это ему присвоили титул "Король математиков".
const n=5;
var a: array[1..n] of integer;
i , s: integer;
begin clrscr;
s:=0;
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
end;
writeln('Среднее арифмитическое = ', s/5:3:1);
readln;
end.