//PascalABC.NET версия 3.4.2.1991 от 03.03.19
//Если программа не запускается, то обновите версию
const
m = 99;
var
n, s, d, i, j: integer;
A, B: Array[1..m] of integer;
begin
Randomize;
write('n = ');
readln(n);
for i := 1 to n do
begin
repeat
j := Random(n) + 1
until A[j] = 0;
A[j] := i;
end;
for i := 1 to n do
write(A[i]:3);
writeln;
end.
Var r: real;
begin
read(r);
if (r > 3) and (r < 10) then
write(trunc(r))
else
write(r - trunc(r))
end.
<span>Для Microsoft Visual Studio 2012
#include <iostream>
using namespace std;
void main(){
setlocale(0,"");
int a,b=0,c,d=0;
cout<<"Введите длину посдедовательности ";cin>>c;
do {cout<<"Введите число: ";cin>>a;b=b+a; d++;} while(d!=c);
cout<<"Сумма чисел в последовательности = "<<b;
cin.get();
cin.get();
}
Для Microsoft Visual Studio 2006
#include <iostream.h>
void main(){
int a,b=0,c,d=0;
cout<<"Введите длину посдедовательности ";cin>>c;
do {cout<<"Введите число: ";cin>>a;b=b+a; d++;} while(d!=c);
cout<<"Сумма чисел в последовательности = "<<b;
}
2 вариант этой же программы
Для Microsoft Visual Studio 2012
#include <iostream>
using namespace std;
void main(){
setlocale(0,"");
int a,b=0,c;
char d;
do {cout<<"Введите число: ";cin>>a;b=b+a; cout<<"Хотите ввести еще число?(y/n)";cin>>d;} while(d!='n');
cout<<"Сумма чисел в последовательности = "<<b;
cin.get();
cin.get();
}
Для Microsoft Visual Studio 2006
#include <iostream.h>
void main(){
int a,b=0,c;
char d;
do {cout<<"Введите число: ";cin>>a;b=b+a; cout<<"Хотите ввести еще число?(y/n)";cin>>d;} while(d!='n');
cout<<"Сумма чисел в последовательности = "<<b;
}</span>