Var x,y,i,s:integer;
begin
s:=1;
writeln('введите числа x и y');
write('x='); readln(x);
write('y='); readln(y);
for i:=x to y do s:=i*s;
writeln('произведение чисел от ',x,' до ',y,' =',s);
end.
Пример работы:
введите числа x и y
x=2
y=5
произведение чисел от 2 до 5 =120
по моему все правильно , надеюсь ты все поймешь
<span>программные средства, осуществляющие поиск информации.</span>
<em>Решение:</em>
<em>1) 800*600*5=2400000</em>
<em>2) 2400000:8:1024=293 Кбайт</em>
<em>Ответ: 293 К байт</em>