Регистрация
nik255377866689
15.07.2022 15:26
Информатика
Есть ответ 👍

Напишите праграммы на питоне
. Дана сторона квадрата a. Найти его периметр P = 4·a.
Begin2◦
. Дана сторона квадрата a. Найти его площадь S = a
2
.
Begin3◦
. Даны стороны прямоугольника a и b. Найти его площадь S = a·b и
периметр P = 2·(a + b).
Begin4◦
. Дан диаметр окружности d. Найти ее длину L = π·d. В качестве
значения π использовать 3.14.
Begin5◦
. Дана длина ребра куба a. Найти объем куба V = a
3 и площадь его
поверхности S = 6·a
2
.
Begin6◦
. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти
его объем V = a·b·c и площадь поверхности S = 2·(a·b + b·c + a·c).
Begin7◦
. Найти длину окружности L и площадь круга S заданного радиуса R:
L = 2·π·R, S = π·R
2
.
В качестве значения π использовать 3.14.
Begin8◦
. Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2.
Begin9◦
. Даны два неотрицательных числа a и b. Найти их среднее геометрическое, то есть квадратный корень из их произведения: √
a·b.
Begin10◦
. Даны два ненулевых числа. Найти сумму, разность, произведение и
частное их квадратов.

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

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

ivanovaa750
ivanovaa750
4,5(77 оценок)
1)     var   a: array[1..100]of real;   n,p,q,q1: real;   i: integer;     begin       for i: =1 to 100 do         begin           read(a[i]);           if a[i]> =0 then             begin               p: =p+a[i];               q: =q+1;             end;           if a[i]< 0 then           begin             n: =n+a[i];             q1: =q1+1;           end;       end;     writeln('positive: ',p/q);     writeln('negative: ',n/q1);   end. 2)           uses crt; var n: real; i: integer;   begin   n: =0.5;   write('  pounds','            kg');   writeln;     for i: =1 to 20 do       begin       write ('      ',n,'            ', n*0.4);       n: =n+0.5;       writeln;       end;       end. 3)   uses crt; var x: integer;   begin   write(' x','              y');   writeln;     for x: =-5 to 5 do     begin           write(x,'            ');           write(5*(x**x)+1);           writeln;     end;     end.

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