задача по Циклу с заданным числом повторений Опции

[Aljonka]

Вычислить  zadacha.bmp ( 18.74 килобайт ) Кол-во скачиваний: 372

[Aljonka]

a kak eto v pascale zapisatj?

[leha]

a kak eto v pascale zapisatj?

вот идея

function fact(i:byte):byte;
var

var
s1,s2,s:word;
st:byte;
begin
 s1:=0; s2:=0; s:=0;

for i:=1 to 6 do
    begin
     st:=i;
     s1:=s1+(2*st);
     s2:=s2+(fact(i)-2*st);
     s:=s1+s2;
    end;

разберешься?

Сообщение отредактировано: мисс_граффити - 23.12.2006 17:48