СРОООООЧНО!!!! Помогите задание по Delphi 7 ))Досконально распишите код) пожалуйста))
СРОООООЧНО!!!! Помогите задание по Delphi 7 ))
Досконально распишите код) пожалуйста))
1 ответ
Рита Чученева
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 ilt;10 then Write(')*');
End;
WriteLn(')=',P);
ReadLn
end.
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 ilt;10 then Write(')*');
End;
WriteLn(')=',P);
ReadLn
end.
Ксюша Самохоткина
Какой шаблон Делфя сделала - такой не смотря и использовал)))))
Maks
Это консоль
Серж Расков
но надобно форму
Ангелина Железенкова
желанно
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
Облако тегов