pascal
Объяснение:
Задание 1
var
y, z, c, d: real;
s, p: real;
begin
Write('Введите y, z, c и d:');
ReadLn(y, z, c, d);
p := y * z * c * d;
s := y + z + c + d;
WriteLn('Сумма равна ', s);
WriteLn('Произведение равно ', p);
end.
Результат: 33 и 250
Задание 2
var
a: real;
s: real;
begin
Write('Введите сторону квадрата a:');
ReadLn(a);
s := sqr(a);
WriteLn('Площадь квадрата равна ', s);
end.
Результат: 64
Задание 3
var
a, b: real;
s: real;
begin
Write('Введите стороны прямоугольника a и b:');
ReadLn(a, b);
s := a * b;
WriteLn('Площадь прямоугольника равна ', s);
end.
Результат: 60
pascal
Объяснение:
Задание 1
var
y, z, c, d: real;
s, p: real;
begin
Write('Введите y, z, c и d:');
ReadLn(y, z, c, d);
p := y * z * c * d;
s := y + z + c + d;
WriteLn('Сумма равна ', s);
WriteLn('Произведение равно ', p);
end.
Результат: 33 и 250
Задание 2
var
a: real;
s: real;
begin
Write('Введите сторону квадрата a:');
ReadLn(a);
s := sqr(a);
WriteLn('Площадь квадрата равна ', s);
end.
Результат: 64
Задание 3
var
a, b: real;
s: real;
begin
Write('Введите стороны прямоугольника a и b:');
ReadLn(a, b);
s := a * b;
WriteLn('Площадь прямоугольника равна ', s);
end.
Результат: 60
#include <iostream>
#include <vector>
using namespace std;
int main()
{
int n, counter = 0;
vector <int> arr;
cin >> n;
for(int i = 0 ; i < n ; ++i)
{
int temp;
cin >> temp;
arr.push_back(temp);
}
for(int i = 0 ; i < arr.size() - 1 ; ++i)
for(int j = i + 1 ; j < arr.size() ; ++j)
if(arr[i] == arr[j])
counter++;
cout << counter;
return 0;
}