опомнился ebl
зы
Program nyaftor_i_y3648
var sum,z,x:real;
i:integer;
begin
sum:=1;
x:=1.5;
For i:=0.1 to 10 do
Z:= sum*(1+sin(i*x));
writeln('Z =' + Z);
end.
зыы Не помню паскаль, на 1м курсе изучал..
зыыы Ребята хелп...
Program aftor_dolboeb;
var z,x:real;
i:integer;
begin
writeln ('vvedi x proshy tebe');
readln (x);
z:=1;
For i:=1 to 100 do
z:=z*(1+sin(0.1*i*x));
writeln('z =', Z:8:3);
readln;
end.
ЗЫ в #5 подчеркивает to, т.к. i - целого типа integer, а в проге написано i от 0.1 до 10
ЗЫЫ эту по3боту со школы помню
ЗЫЫЫ афтор школьник. "завтра здавать" (с)
