Написать программы к на паскале. 1. аквариум - куб со стороной а метров. рыба - шар, диаметр b см. подсчитать количество выплеснутой воды. 2. является ли шестизначный номер счастливым. 3. по двум углам определите вид треугольника. 4. два отрезка заданы координатами своих концов. определить количество общих точек этих отрезков.

№1

var a,b,v: real; begin readln(a,b); v: =4/3*pi*sqr(b/2)*(b/2); a: =sqr(a)*a; v: =a-v; writeln(v: 7: 4);

end.

 

№2

var s: string[6]; begin readln(s); if ((strtoint(s[1])+strtoint(s[2])+strtoint(s[3]))= (strtoint(s[4])+strtoint(s[5])+strtoint( then writeln('является') else writeln('не является');

end.

 

№3

var a,b: integer; begin readln(a,b); if (a< 90) and (b< 90) and (180-a-b< 90) then writeln('остроугольный') else if (a=90) or (b=90) or (180-a-b=90) then writeln('прямоугольный') else writeln('тупоугольный'); end.

 

 

 

1) 

var v1,a,v2,v3,d: integer;

begin

readln(a,b);

a: =a/10;

v1: =a*a*a;

v2: =4/3*3,14*(d/2)(d/2)(d/2);

v3: =v1-v2;

writeln("объем выплеснутой воды ",v3);

readln();

end.

 

2) 

var

i,num,a,b,c,d,e,f, sum1,sum2: integer;

 

begin

readln(num);

a: =num div 100000;

num: =num mod 100000;

b: =num div 10000;

num: =num mod 10000;

c: =num div 1000;

num: = num mod 1000;

d: =num div 100;

num: = mod 100;

e: =num div 10;

f: =num mod 10;

  sum1: =a+b+c;

sum2: =d+e+f;

if (sum1=sum2) then

writeln("да, является.");

else writeln("нет, не является.");

readln();

end.

 

 

 

 

1)

size, a, b, list_num = int(input('Введите размер массива: ')), 1, 0, []

for i in range(size):

 list_num.append(a)

 a, b = a + b, a  

print('Числа Фабенначи:', *list_num)

2)

list_num = input('Введите массив: ').split()

for i in range(len(list_num)):

 list_num[i] = int(list_num[i])

print('Среднее арифметическое:', sum(list_num) / len(list_num))

3)

from random import randint

list_num, small_num, big_num = [], [], []

for i in range(10):

   list_num.append(randint(0, 100))

for i in list_num:

 if i < 50:

   small_num.append(i)

 else:

   big_num.append(i)

print('Массив:\n', *list_num)

print('Ср. арифм. элементов < 50:', sum(small_num) / len(small_num))

print('Ср. арифм. элементов >= 50:', sum(big_num) / len(big_num))

Задача №3. Введите массив из 5 элементов с клавиатуры и найдите среднее арифметическое его значений:

mass = map(int,input().split())

summ = 0

for i in mass:

   summ += i

print(summ/5)

Задача №4. Заполните массив из 10 элементов случайными числами в интервале [0, 100] и подсчитайте отдельно среднее значение всех элементов, которые <50, и среднее значение всех элементов, которые ≥50:

from random import randint

mass = [randint(1, 100) for i in range (10)]

summ1 = summ2 = k1 = k2 = 0

for n in mass:

   if n < 50:

       summ1 += n

       k1 += 1

   else:

       summ2 += n

       k2 += 1

print('Ср. арифм. элементов <50: ' + str(round(summ1/k1, 3)) + '\nСр. арифм. элементов >=50: ' + str(round(summ2/k2, 3)))

Задача №5. Введите размер массива N и заполните массив из N элементов числами Фибоначчи:

N = int(input())

mass = [1, 1]

for i in range (2, N):

   mass.append(mass[i - 2] + mass[i - 1])

print(mass)