Файл (Pascal Delphi)

[Legky]

Вычислить сумму квадратов чисел от 1го до 30ти.
Квадраты чисел записать в файл.
типизированный или текстовый файл, на выбор

Очень надо, прямо кровь из носу

[Hacker19_90]

50р на телефон!

[Legky]

спасибо за помощь

[Hacker19_90]

спасибо за помощь

Не за что!

function GetSq :integer;
var
    f: file of integer;
    i: integer;
    sum: integer;
begin
    Assign(f, 'output.dat');
    Rewrite(f);
    sum := 0;
    for i := 1 to 30 do
    begin
        sum := sum + sqr(i);
        write(f, sqr(i));
    end;
    close(f);
    GetSq := sum;
end;