Вывести на экран значения функции у=sin(x) для 0≤x≤180 c шагом в 10. На языке Паскаль

64 = 1000000

-120 = -1111000

-96 = -1100000

57 =  111001

вот конвертер:

var

x,y: real;

i,n: integer;

begin

n: =1;

x: =1;

y: =1;

for i: =1 to 5 do

begin

n: =n*i;

x: =-1.5*x;

y: =y*(x+1/n);

end;

writeln(y: 15: 5);

end.

отношения между объектами - диаграммы эйлера-венна

объект-фотографии

стоимость объекта   -числа

р. об.- эскиз

ф. р. об. - чертежа

эл. с. об.  -схемы

  цв. об.-рисунка

var

a: array [1..20] of integer;

i,max: integer;

begin

max: =0;

for i: =1 to 20 do

begin

if i mod 2=0 then a[i]: =random(50)+50

else  a[i]: =random(50)+150;

if a[i]> max then max: =a[i];

write(a[i]: 4);

end;

writeln;

writeln('max=',max);

end.