Решить задачу можно так:
var i,sum:integer;
begin
sum:=0; i:=0;
while sum<1322 do
begin
i:=i+1; sum:=sum+i;
end;
writeln(i,' ',sum);
writeln('Дважды написали ',i-(sum-1322));
<span>end.
Получается 47</span>
#include <iostream>
int main()
{
int n = 0 ;
std::cin>>n;
double S= 0;
for(int i = 2; i<=n+1; ++i)
{
s = s+ 1/(double)i;
}
std::cout<<s;
return 0;
}
var
a, b: real;
begin
writeln('Введите 2 числа');
readln(a, b);
if a > b then
begin
a:= a + 3;
b:= b - 5;
end;
if a < b then
begin
a:= a - 5;
b:= b + 3;
end;
writeln('a = ', a, ', b = ', b);
end.
Ответ:
1.Удобство использования.
2.Циклической
3.информация о состоянии объекта управления.
Объяснение:
begin
var N := ReadInteger();
var a := ReadArrReal(N);
Swap(a[a.IndexMax], a[a.IndexMin]);
a.Println
end.