Попробуйте такой вариант:
programm one
var n, i: integer;
S: real;
begin
readln(n);
while(i != n)
begin
s := s + 1/((2*n+1)*(2*n+1));
i = i+1;
end;
writeln(s);
readln();
end.
25*80=2000 символов на экране
Unicode 16 битный:
2000*16=32000 бит (4000 байт)
НОД - Наибольший Общий Делитель, то есть это число, на которое делятся два числа, причём число должно быть большим среди всех остальных.
а) 32 и 24. Они делятся на 1, 2, 4, 8.
НОД=8
б) 93 и 52. они оба делятся только на 1
НОД=1
в) 150 и 75. НОД=75
г) 63 и 13. Так как 13 простое число, а 63 не делится на 13.
Значит НОД=1
Ну как-то так.
Если почерк непонятен - объясню, угу
Var c: Char;
s: String;
i,k,p: Integer;
Begin
ReadLn(c); {Чтение заданного символа}
ReadLn(s); {Чтение заданного слова}
p:= Pos(c,s); {Определяем позицию символа}
If (p=0) Then {Функция вернёт 0, если символ не будет найден}
WriteLn('Такого символа в слове нет.')
Else {Если символ есть, то ...}
Begin
WriteLn('Указанный символ расположен на позиции: ',p);
k:= 0; {k хранит количество вхождений}
p:= Length(s); {p хранит длину строки(слова)}
For i:=1 To p Do {Пробегаем по всем символам слова}
If (s[i]=c) Then inc(k); {Если символ совпадает, увеличиваем на 1 переменную k}
WriteLn('Количество вхождений данного символа: ',k);
End;
End.