Var a,s:real; f1,f2:text; begin assign(f1,'f1.txt'); reset(f1); assign(f2,'f2.txt'); rewrite(f2); s:=1; while not eof(f1) do begin read(f1,a); s:=s*a; end; write(f2,s); close(f1); close(f2); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
