1)вычислить длину окружности и площадь круга одного и того же заданного радиуса r. pascal (желательно с блок-схемой) 2)найти сумму членов арифметической прогрессии, если известны её первый член,знаменатель и число членов прогрессии pascal (желательно с блок-схемой). 3)даны целые числа m, n. если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны,то заменить числа нулями pascal (желательно с блок-схемой). 4)определить, является ли треугольник со сторонами a,b,c равнобедренным pascal (желательно с блок-схемой). 5)подсчитать количество отрицательных чисел среди чисел a,b,c pascal (желательно с блок-схемой). 6)одноклеточная амёба каждые 3 часа делится на 2 клетки. определить, сколько амёб будет через 3,6,9,12, 24 часа pascal (желательно с блок-схемой). 7) дан массив натуральных чисел. найти сумму элементов, кратных данному k pascal (желательно с блок-схемой)

249

395

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

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

Denchik15070

Информатика

4,6(20 оценок)

№1 var r: integer; begin writeln('введите радиус'); read(r); writeln('длина окружности = ',2*pi*r); writeln('площадь круга = ',pi*sqr(r)); end. №2 var a,d,n: integer; begin writeln('введите первый член, знаменатель, число членов'); read(a,d,n); writeln('cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d)); end. №3 var m,n: integer; begin writeln('введите m и n'); read(m,n); if m=n then begin m: =0; n: =0; end; if (m> n) then n: =m else if n> m then m: =n; end. №4 var a,b,c: integer; begin writeln('введите стороны a,b,c'); read(a,b,c); if (a=b) or (b=c) or (c=a) then writeln('треугольник равнобедренный') else writeln('треугольник неравнобедренный'); end. №5 var a,b,c: integer; begin a: =0; c: =0; repeat writeln('введите число'); read(b); if b< 0 then a: =a+1; c: =c+1; until c=3; writeln('количество отрицательных = ',a); end. №6 var a,c: integer; b: real; begin writeln('введите количество часов'); read(a); c: =a div 3; b: =power(2, c); writeln(b); end. №7 const n=10; var a: array [1..10] of integer; i,k,s: integer; begin writeln('введите k'); read(k); writeln('введите элементы массива'); for i: =1 to n do begin read(a[i]); if a[i] mod k =0 then s: =s+a[i]; end; writeln(s); end.

yeghiazaryanhap01lbi

Информатика

4,6(66 оценок)

Ударение на а разностной

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

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

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

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

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

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

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

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

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

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