Создать проект нахождения сумы чисел 1^2 + 2^2 + … + n^2 в turbodelphі молю вас.

291

494

Посмотреть ответы 2

Ответы на вопрос:

Sofi432432

Информатика

4,6(57 оценок)

Вот тебе функция для подсчета суммы, проект форму, кнопки, едеты на твоих плечах. код вставляй после implementation и используй примерно так: //////////////// label1.caption: =inttostr( sums( strtoint( edit1.text ) ) ); /////////////// function sums(n: integer): integer; var i, t: integer; begin for i: =1 to n do t: =t+sqr(i); sums : = t; end;