Информатика: составить алгоритм язык паскаль

1) uses crt, graphabc; var a,c: real; n,i,r,g,b: integer; begincircle(100,100,80); read(n); a: =0; c: =360; r: =5; g: =5; b: =5; for i: =1 to n do beginpie(100,100,80,a,c); floodfill(145,97,rgb(r,g,b)); c: =c-360/n; r: =r+30; g: =g+10; b: =b+45; end; end. 2) uses crt, graphabc; var n,i,x1,y1,x2,y2: integer; beginread(n); x1: =350; y1: =10; x2: =360; y2: =15; for i: =1 to n do beginrandomize; setbrushcolor(rgb(random(256),random(256),random(; rectangle(x1,y1,x2,y2); fillrect(x1,y1,x2,y2); x1: =x1-5*i;...

mainaalikuliev

26.12.2021 08:08

Информатика

Есть ответ 👍

составить алгоритм язык паскаль

296

364

Посмотреть ответы 1

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

ChristmasNastya

Информатика

4,4(18 оценок)

uses crt, graphabc; var a,c: real; n,i,r,g,b: integer; begincircle(100,100,80); read(n); a: =0; c: =360; r: =5; g: =5; b: =5; for i: =1 to n do beginpie(100,100,80,a,c); floodfill(145,97,rgb(r,g,b)); c: =c-360/n; r: =r+30; g: =g+10; b: =b+45; end; end.

uses crt, graphabc; var n,i,x1,y1,x2,y2: integer; beginread(n); x1: =350; y1: =10; x2: =360; y2: =15; for i: =1 to n do beginrandomize; setbrushcolor(rgb(random(256),random(256),random(; rectangle(x1,y1,x2,y2); fillrect(x1,y1,x2,y2); x1: =x1-5*i; y1: =y2-1; x2: =x2+5*i; y2: =y2+i*5; end; end.

var a,min,max,f: integer; beginf: =0; repeatread(a); if a< > 0 then beginif f=0 then beginmin: =a; max: =a; end else beginif a< min then min: =a; if a> max then max: =a; end; f: =f+1; end; until a=0; writeln(max*min); end.

var a,max1,max2,f: integer; beginf: =0; repeatread(a); if a< > 0 then beginif f=0 then beginmax1: =a; end elseif f=1 then beginif a< max1 then max2: =a else beginmax2: =max1; max1: =a; end; end else beginif a> max1 then max1: =a; if (a> max2) and (a< =max1) then max2: =a; end; f: =f+1; end; until a=0; writeln(max1+max2); end.

var a,min1,min2,min3,f: integer; beginf: =0; repeatread(a); if a< > 0 then beginif f=0 then beginmin1: =a; end elseif f=1 then beginif a> min1 then min2: =a else beginmin2: =min1; min1: =a; end; end elseif f=2 then beginif (a> min1) and (a> min2) then min3: =a else if (a> =min1) and (a< =min2) then beginmin3: =min2; min2: =a; end else beginmin3: =min2; min2: =min1; min1: =a; end; end else beginif a< min1 then beginmin3: =min2; min2: =min1; min1: =a; end elseif (a< min2) and (a> =min1) then beginmin3: =min2; min2: =a; end elseif (a> =min2) and(a< min3) then min3: =a; end; f: =f+1; end; until a=0; writeln((min1+min2+min3)/3: 3: 3); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.