Составить алгоритм и программу для вычесления площади круга,если задан его радиус.(s=3,14rr).

123

284

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

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

evakozyreva03

Информатика

4,7(95 оценок)

Алгоритм напишу словами начало ввод r s: =3,14*r* rвывод sконецпрограммаprogram squre; uses crt; var s, r: real; beginclrscr; writeln('enter r: '); readln(r); s: =3.14*r*r; writeln('s=',s: 2: 2); readln; end.

Дарья22012007

Информатика

4,5(100 оценок)

Const nn=20; var d: array[1..nn,1..nn] of integer; zr,zc: array[1..nn] of boolean; { строки и столбцы } n,m,i,j,nr,nc: integer; begin write('укажите n и m: '); read(n,m); randomize; writeln('и с х о д н ы й м а с с и в'); nr: =0; nc: =0; for i: =1 to n do zr[i]: =false; for j: =1 to m do zc[j]: =false; for i: =1 to n do begin for j: =1 to m do begin d[i,j]: =random(21)-10; write(d[i,j]: 4); if d[i,j]=0 then begin zr[i]: =true; zc[j]: =true end; end; writeln end; for i: =1 to n do if zr[i] then for j: =1 to m do d[i,j]: =0; for j: =1 to m do if zc[j] then for i: =1 to n do d[i,j]: =0; writeln('м а с с и в - р е з у л ь т а т'); for i: =1 to n do begin for j: =1 to m do write(d[i,j]: 4); writeln end end. пример укажите n и m: 7 12 и с х о д н ы й м а с с и в -10 8 -4 -3 -8 9 1 -6 4 -6 5 -1 -8 -2 -8 -7 -3 -1 4 4 5 -1 7 -6 8 -5 8 -1 -8 9 8 -4 -6 -2 0 4 7 -4 8 -9 3 2 9 3 3 6 9 4 9 -3 8 8 -4 9 7 2 -10 -8 -1 8 -10 -8 -8 6 -4 -2 -6 4 8 -1 -3 -9 2 2 -9 -7 0 -6 2 -9 -4 -6 0 5 м а с с и в - р е з у л ь т а т -10 8 -4 -3 0 9 1 -6 4 -6 0 -1 -8 -2 -8 -7 0 -1 4 4 5 -1 0 -6 0 0 0 0 0 0 0 0 0 0 0 0 7 -4 8 -9 0 2 9 3 3 6 0 4 9 -3 8 8 0 9 7 2 -10 -8 0 8 -10 -8 -8 6 0 -2 -6 4 8 -1 0 -9 0 0 0 0 0 0 0 0 0 0 0 0

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

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

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

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

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

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

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

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

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

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