Есть ответ 👍

Составте программу в рисовании pascalabc

132
146
Посмотреть ответы 2

Ответы на вопрос:


Uses graphabc; var x,y: integer; begin x: =windowwidth div 2; y: =windowheight-80; rectangle(x-100,y,x+100,y+50); circle(x-100,y-100,20); circle(x+100,y-100,20); line(x,y,x-86,y-86); line(x,y,x+86,y-86); line(x,y,x,y-160); arc(x,y-140,20,0,180); end.

Будем считать, что массив в уже в памяти компьютера. тогда cls result = 1 for i=0 to 15         if b(i)< 0 then result = result * b(i) next print "произведение отрицательных членов массива в равно" print result

Популярно: Информатика