Якщо значення змінноїх дорівнює 10, ви
«Pascal».
2. Довжина сторони квадрата а, радіус кол
Практична робота
Складання та виконання алгоритмів з роз“
нання алгоритмів з розгалуженням
вести повідомлення «Python», інакше –
( )
» радіус кола – х. Чи можна у квадрат вписати коло?
( )
2. Дано сторони трикутника a, 6,

с. Чи трикутник рівносторонній? Вивести
повідомлення «так» або «ні»
г. дано сторони трикутника a, 6, с. Чи трикутник рівнобедренний? Вивести
повідомлення «так» або «ні»
Скласти програму для розв'язку системи рівнянь.
(2, )
(2,
( )
y = 1
,
x> 0;
(х + 6,
x <
0
/ 46 (
и - trt
л - СЛt 1
аға
1
)​

#include <iostream>

#include <algorithm>

#include <string>

#include <vector>

using namespace std;

int main()

{

    // Номер 1

   vector <string> days;

   for (int i = 0 ; i < 7 ; ++i)

   {

       string temp;

       cin >> temp;

       days.push_back(temp);

   }

   

   

   //Номер 2

   int max1 = -2000000000;

   int max2 = -2000000000;

   vector <int> arr { 15, 48, 0, 144 , 52};

   for(int i = 0 ; i < arr.size() ; ++i)

       max1 = (arr[i] > max1 ? arr[i] : max1);

       

   for(int i = 0 ; i < arr.size() ; ++i)

       max2 = (arr[i] > max2 && arr[i] != max1 ? arr[i] : max2);

   cout << "Максимум 1: " << max1 << " Максимум 2: " << max2;

   

   

   //Номер 3

   vector <int> numbers { 15, 24, 48, -5 , 0 , -10};

   cout << count_if(numbers.begin(), numbers.end(), [] (int a) { return a > 0;});

   

   return 0;

}

1)uses crt; var  x,a,b,c,i: integer;     begin cls;   write('введите число: '); readln(x);     a: = x div 100;     b: = (x - a*100) div 10;     c: = (x - a*100 - b*10);     if (a=b) or (a=c) or (b=c) then    writeln('есть одинаковые цифры')    else    writeln('одинаковых цифр нет'); end.2)uses crt; var  x: real;     begin cls;   write('сумма покупки: '); readln(x);     if x> 1000 then x: =x-(x*0.1);     writeln('стоимость с учётом возможной скидки ',x); end.