Создать проект нахождения сумы чисел 1^2 + 2^2 + … - вопрос №670888112222 от MaXIm0100742578 05.07.2020 16:30

Question

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

MaXIm0100742578 · Answer

Вот тебе функция для подсчета суммы, проект форму, кнопки, едеты на твоих плечах. Код вставляй после 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;