СРОООООЧНО!!!! Помогите задание по Delphi 7 )) Подробно распишите код) пожалуйста))

0 голосов
58 просмотров

СРОООООЧНО!!!! Помогите задание по Delphi 7 ))
Подробно распишите код) пожалуйста))


image

Информатика (121 баллов) | 58 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Var
   i,j:integer;
   P,S:real;
begin
P:=1;
For i:= 2 to 10 do
    Begin
    S:=0;
    Write('(');
    For j:=1 to i-1 do
        Begin
        S:=S+j;
        Write(j,'+');
        End;
    Write(j);
    P:=P*S;
    if i<10 then Write(')*');<br>    End;
WriteLn(')=',P);
ReadLn
end.

(34.0k баллов)
0

Какой шаблон Делфя создала - такой не глядя и использовал)))))

0

Это консоль

0

но надо форму

0

желательно