составить программу раскаль в которой посчитать произведение чисел от 1 до 9 до тех пор пока произведение будет меньше 120

1

Ответы и объяснения

2012-11-29T21:05:53+00:00

Program summa;

 var i,n,s, :real;

begin (' введите число n');

read (n);

S:=0;

for i := 1 to n do

S:=S+i;

writeln ('сумма =', s);

end

 

 

я не уверена конечно, но попробуй в паскале, если получится значит все правильно.