Если я правильно понял задание:
#include <iostream>
#include <algorithm>
#include <clocale>
template<typename T>
void func(T&& var1, T&& var2)
{
auto var3 = std::minmax(var1, var2);
std::cout << "min = " << var3.first << " | " << " max = " << var3.second << std::endl;
}
template<typename T>
void func(T&& var1, T&& var2, T&& var3)
{
auto var4 = std::minmax({var1, var2, var3});
std::cout << "Макс. число больше мин. числа в " << var4.second / var4.first << std::endl;
}
int main()
{
std::setlocale(LC_ALL, "Russian");
float var1, var2, var3;
std::cin >> var1 >> var2;
func(var1, var2);
std::cin >> var1 >> var2 >> var3;
func(var1, var2, var3);
std::system("PAUSE >> void");
return 0;
}
Var i,sum,n,count: Integer;
begin
writeln('Введите максимальное число диапазона');
readln(n);
for i:=1 to n do
begin
Inc(sum,i);
Inc(count);
end;
writeln('Кол-во чисел: ',count);
writeln('Сумма чисел равна: ',sum);
end.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
Writeln('y=',3*x*x/Cos(2*x))
end.
<u>Пример</u>
x= -0.57
y=2.33408244304191
var
a:array[1..100] of integer;
povt,i,j,elem:integer;
begin
povt:=0;
randomize;
for i:=1 to 100 do
a[i]:=random(1001);
for j:=1 to 100 do
povt:=0;
begin
for i:=1 to 100 do
if a[i]=a[j] then
begin
elem:=a[i];
povt:=povt+1;
end;
povt:=povt-1;
write('Число= '+elem+ ' Количество повторений= '+ povt);
end;