Pascal
program matr;uses CRT;var fl:char;a:array [1..100,1..100] of integer;i,j,m,n,mmax:byte;max:integer;label met;beginmet:clrscr;max:=0;writeln ('Введите размерность матрицы NxM');readln (n);readln (m);randomize;for i:=1 to n do beginfor j:=1 to m do begina[i,j]:=-50+random(101);write (a[i,j]:4);end;{создание и вывод матрицы}writeln;end;writeln;for i:=1 to n do{нахождение максимального элемента}zfor j:=1 to m doif (a[i,j]>max) then beginmax:=a[i,j];mmax:=j;end;for i:=1 to n dowrite (a[i,mmax]:4);writeln;{Вывод столбца}for i:=1 to n do {нахождение одинаковых элементов}for j:=1 to n doif (a[i,j]=max)and(j<>mmax) then begin mmax:=j;write (a[i,mmax]:4);end;writeln ('Для продолжения нажмите любую клавишу,для выхода - "Х"');readln(fl);if (fl <> 'x') then goto met;<span>end.</span>
Var A,B,N:integer;
S:real;
Begin
A:=0;
B:=1;
Write('N = ');
ReadLn(N);
if N<0 then Write('Введите положительное число')
else
Begin
While A<N do
Begin
S:=S+A;
A:=A+B;
Swap(A,B);
Write(A,' ');
End;
WriteLn;
WriteLn('S = ',S)
End;
End.
Пример:
N = 10000
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946
S = 17710
Примечание:
Условие немного некорректно, т.к.
1+1+2+3+5+8+13+21+34+55+89+144+233+377+610+987+1597+2584+4181+6765 = 17710.
Первый текст - 256 символов = 2^8 - битность 1 символа = 8 бит
Второй текст - 32 символов = 2^5 - битность 1 символа = 5 бит
8/5=1.6 раз
650*3=1950 мб
16-14.9=1.1 гб свободного места
1950-1100=850 мб