Question

Задача на Паскале. Срочно!!!!!!

Answer 1

Условие не совсем понял.
 Если надо определить значение синуса х при х=20+2*i  ,i от 1 до 10 , вывести результаты и  значение у при х=25.
 То вот программа в АВС
Program sinus;Uses CRT;Varx,i:integer;y:real;Beginwriteln('     Программа определяет значение синуса ');For i:=1 to 10 dobeginx:=20+2*i;y:=sin(x);writeln (' x= ', x);Writeln (' y=', y);end;x:=25;y:=sin(x);writeln (' x= ', x);Writeln (' y=', y);end.

Answer 2

Program sinus;
Uses CRT;
Var
x,i:integer;
y:real;
Begin
writeln(' Программа определяет значение синуса ');
For i:=1 to 10 do
begin
x:=20+2*i;
y:=sin(x);
writeln (' x= ', x);
Writeln (' y=', y);
end;
x:=25;
y:=sin(x);
writeln (' x= ', x);
Writeln (' y=', y);
end.