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

    question img

Ответы 1

  • program Project1;{$APPTYPE CONSOLE}uses  SysUtils;Var   i,j:integer;   P,S:real;beginP:=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(')*');    End;WriteLn(')=',P);ReadLnend.
    • Автор:

      jakeyemq
    • 4 года назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years