Составить блок схему и программный код в python. 1)Даны 3 стороны треугольника abc. Найдите периметр треугольника. 2) Один ученик посадил а деревьев, второй посадил b деревьев, третий с деревьев. Найдите сколько деревьев посадили ученики вместе

калькулятор сам составлял

#include<iostream>

 

using namespace std;

 

int main()

{

   setlocale( LC_ALL, "Russian" );

       float a,b,s;

       int dp;

       

   cout << "Привет! Я калькулятор!Какие действие вы будете выполнять:" << endl;

       cout << "1. Сложение. " << endl;

       cout << "2. Отнимание." << endl;

       cout << "3. Умножение." << endl;  

       cout << "4. Деление." << endl;

 

       cout << "Введите число для выбора действия" << endl;

 

       cin >> dp;

 

       switch(dp)

       {

       case 1:

               cout << "Число a = " << endl;

       cin >> a;

       cout << "Число b = " << endl;

       cin >> b;

               s = a + b;

               cout << "\n" << a << " * " << b << " = "<< s << endl;

   break;

 

case 2:

               cout << "Число a = " << endl;

       cin >> a;

       cout << "Число b = " << endl;

       cin >> b;

               s = a - b;

               cout << "\n" << a << " * " << b << " = "<< s << endl;

               break;

 

 

case 3:

               cout << "Число a = " << endl;

       cin >> a;

       cout << "Число b = " << endl;

       cin >> b;

               s = a * b;

               cout << "\n" << a << " * " << b << " = "<< s << endl;

               break;

 

               case 4:

               cout << "Число a =  "  << endl;  

               cin >> a;

               cout << "Число b =  " << endl;

       cin >> b;

               s = a / b;

               cout << "\n" << a << " / " << b << " = "<< s << endl;

               break;

       }

       

 

return 0;

}

1

Задание №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.