Var n,a,b,i: Integer;
begin
writeln('Введите кол-во раз:');
readln(n);
for i:=0 to n do
begin
a:=random(1000);
b:=random(1000);
writeln('1 число: ',a,', 2 число:',b);
if a>b then writeln(a,'>',b);
if a<b then writeln(a,'<',b);
if a=b then writeln(a,'=',b);
end;
end.
#include <iostream>
using namespace std;
int main()
{
int b;
cin>>b;
float a=1;
for(int i=2;i<=b;i++)
{
a = (a*(i-1)+i*i)/i;
}
cout<<a<<endl;
system("PAUSE");
}
-----------------------------------------------------------------------
Ответ:
Wi-Fi был создан в 1998 году в лаборатории радиоастрономии CSIRO (Commonwealth Scientific and Industrial Research Organisation) в Канберре, Австралия. Создателем беспроводного протокола обмена данными является инженер Джон О’Салливан.
Я знаю Δπ∛∈βππ∛,,,,,⇔∈∉∛××≠≠≠≠≠≠≠≠≠≠≠≠≠Δ
Program main;
Var A, B: array [1..100] of integer;
k, n, i: byte;
Begin
i:=1;
Readln (n);
For k:=1 to n do
Readln(A[k]);
For k:=1 to n do
If A[k]<0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]=0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]>0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For i:=1 to n do
Writeln (B[i]);
Readln;
End.