Поделитесь своими знаниями, ответьте на вопрос:
Написати програму з використанням байтових для збереження у файл даних про учнів принаймні 5 записів ) . зчитатидані у масив , та вивести відомості про тих , які мають оцінки менші за 9 ( про учнів відомі такі дані номер по порядку прізвище , імя , предмети :
begin
var a: =readreal('a=');
var n: =readinteger('n=');
var s: =1/a; // для n=1
if n< =1 then s+=1
else
begin
a*=a; // a^2
var z: =a;
for var i: =2 to n do
begin
s+=1/z;
z*=a
end
end;
println(s)
end.
a= 3.73 n= 5 0.34553638581855