1. Мазмұнды қалай жаңалаймыз?
2. Мазмұнды қалай жоямыз?
заранее

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.

файл с исходным текстом программы на паскале должен иметь расширение pas.

program seee; uses crt; var p,b,c: real; i,v: integer; beginclrscr; readln(p); writeln; writeln('mass price '); writeln; while v< > 1000 dobegin v: =v+50; writeln(v,'g ',v*p/1000: 2: 2); end; readkey; end.

495+459=954 954-459=495