#include <iostream>
using namespace std;
int maks(int n)
{
int max=0,a;
for(int i=0;i<n;i++)
{
cin >> a;
if( a > max || max == 0) max = a;
}
return max;
}
int main()
{
cout << maks(4)-maks(2)+maks(5);
return 0;
}
// Поиск максимума выполнен методом инициализации изначального максимума)
1)var
a,b,h:real;
begin
readln(a);
readln(b);
readln(h);
while a<b do
begin
writeln(a,' ',2*cos(a)-1:8);
a+=h;
end
<span> end.
2)</span>var
eps,sum,current,n:real;
begin
readln(eps);
sum:=0;
n:=0;
repeat
current:=2*n-1/power(2,n);
n+=1;
sum+=current;
until current>eps;
writeln(sum);
<span>end.</span>
Программа для создания презентаций (в основном)
Задача протестирована на pascalABC