3. Встречаются ли в разложении числа на простые множители одинаковые множители icon

3. Встречаются ли в разложении числа на простые множители одинаковые множители



Название3. Встречаются ли в разложении числа на простые множители одинаковые множители
страница1/2
Дата конвертации21.07.2012
Размер296.16 Kb.
ТипДокументы
  1   2

1. Задана линейная таблица, состоящая из целых чисел. Определить есть ли в этой таблице хотя бы одно число кратное k.

2. Даны n чисел. Определить яв-ся ли они взаимно простыми т.е. имеют общий делитель отличный от единицы.

3. Встречаются ли в разложении числа на простые множители одинаковые множители.

4. Найти все простые делители натурального числа N.

5. Дан текст. Найти все палиндромы (т.е. слова-перевертыши) в этом тексте.

6. Дана строка слов разделенных пробелом, в конце строки точка. Поменять местами два центральных слова если их количество четно.

7. Определить можно ли из символов входящих в строку а, составить строку с.

8. Уплотнить линейный массив удалив нули и сдвинув влево остальные элементы.

9. Найти в одномерном числовом массиве элемент, который наибольшее кол-во раз повторяется в массиве. Вывести это число и кол-во его вхождений в массив.

10. Дан одномерный массив размерностью N из положительных и отрицательных чисел. Упорядочить его так, чтобы в начале располагались все отрицательные, а затем все положительные элементы, сохранив порядок следования и не создавая новый массив.

11. Дан прямоугольный целочисленный массив размером N*N. Определить яв-ся ли данный массив магическим квадратом, т.е. сумма элементов в строках, столбцах и на главных диагоналях равна.

12. Составить программу, которая размещает элемент s неупорядоченного массива A на место, соответствующее ему в упорядоченном массиве.

13. Женщина шла на базар и разбила яйца, лежавшие у неё в корзине. Она сказала, что не знает сколько яиц у неё было, но когда она брала по 2,3,4,5 и 6 яиц то оставалось в остатке одно. Когда же она брала по 7 яиц, то ничего не оставалось в остатке. Сколько яиц могло быть в корзине.

14. Вводится слово из N различных букв (N<10). Получить все возможные слова из S букв этого слова(S<=N)

15. Дана матрица N*N.

1)заменить нулями элементы, расположенные на главной диагонали и выше (ниже) её;

2)найти сумму элементов, расположенных на побочной диагонали и выше (ниже) её;

3)найти максимальный из элементов, расположенных на побочной диагонали и выше (ниже) её;

4) найти произведение элементов, расположенных на побочной диагонали и выше (ниже) её.

16. Из семи красных и восьми белых роз требуется составить букет из пяти роз. Перечислить все возможные варианты.

17. На клеточном листе бумаги размером MхN расположены прямоугольники. Задан массив MхN в котором элемент a[i,j]=1 если клетка листа (i,j) яв-ся частью прямоугольника, и a[i,j]=0 если это пустая клетка. Напечатать число прямоугольников.

18. Напечатать все совершенные числа меньше m}. Справка: Совершенными называются числа сумма делителей включая 1, которых равна самому числу, делители не должны быть равны самому числу.

19.
Дан прямоугольный массив состоящий из различных элементов. В каждой строке выбирается минимальный элемент, а среди них максимальный элемент. Напечатать номер строки в кот расположено полученное число.

20. Дана таблица, поменять местами строки и столбцы.

21. Любую сумму больше 7 можно выплатить без сдачи трешками и пятерками т.е. для n>7 найти все целые неотрицательные а и b, что 3а+5b=n

22. Два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого, кроме самого этого числа. Найти все пары в данном

диапазоне.

23. Найти наибольшее число из данного диапазона у которого наибольшее количество делителей.

24. Два двузначных числа, записанных одно за другим образуют четырехзначное число, которое делится на их произведение. Найти эти числа.

25. Найти натуральные числа из данного диапазона у которых количество делителей является произведением двух простых чисел.

62. Ввести список фамилий в любом порядке. Распечатать список в алфавитном порядке.

27. Определить, какая цифра находится в позиции числовой последовательности. 1011112131415...979899-подряд выписаны все двузначные числа.

28. Вывести список шестизначных чётных чисел, делящихся без остатка на сумму своих цифр в 10 колонок.

29. Вывести список трёхзначных чисел, делящихся без остатка на произведение своих цифр в 5 колонок. Поставить защиту от деления на ноль.

30. Вывести список симметричных нечётных чисел (например 34543 или 70507) в 5 колонок.

31. Вывести список шестизначных "счастливых" чисел (сумма первых трёх цифр равна сумме трёх последних), кратных семи в 10 колонок

32. Определить кол-во слов в строке. Слова отделяются одним или несколькими пробелами.

33. Определить номера позиций и кол-во повторений запрашиваемого символа в строке введённой с клавиатуры.

34. Найти и заменить определённый символ в строке введённой с клавиатуры. Программа должна запрашивать заменяемый и заменяющий символы, а также подтверждение каждой замены символа с сообщением его номера в строке.

35. Определить самое короткое и самое длинное слово в строке введённой с клавиатуры.

36. Слить массивы А и В по 100 элементов в массив С из 200 элементов так, чтобы вначале шли элементы меньше среднего значения по всему массиву С.

37. Слить массивы А и В по 100 элементов в массив С из 200 элементов так, чтобы элементы массива А имели в С нечётные номера.

38. Слить массивы А и В по 100 элементов в массив С из 200 элементов так, чтобы элементы массива А имели номера от 51 до 150.

39. Слить массивы А и В по 100 элементов в массив С из 200 элементов так, чтобы элементы А и В чередовались по 10 штук.

40. Составить программу, создающую из файла копию, но записанную задом наперёд.

41. Составить программу, удаляющую в файле текст после первой точки.

42. Найти остаток от деления числа, записываемого с помощью


k семёрок, на число а (k и a -заданные натуральные числа).

43. На интервале (1000 .. 9999) найти все простые числа, каждое из которых обладает тем свойством, что сумма первой и второй цифр записи этого числа равна сумме третьей и четвёртой цифр.

44. Среди простых чисел, не превосходящих n, найти такое, в двоичной записи которого максимальное число единиц.

45. Найти двоичное представление для чётных совершенных чисел вида 2(p-1)*((2p)-1)

46. Задана последовательность состоящая из единиц и нулей. Определить кол-во М-значных чисел, входящих в указанную последовательность, которые делятся на 21.

47. Можно ли заданное натуральное число M представить в виде суммы двух квадратов натуральных чисел.

48. Найти минимальное число, которое представляется суммой четырёх квадратов натуральных чисел не единственным образом.

49. Даны числа M,N и двумерный массив M*N. Некоторый элемент массива назовем седловой точкой, если он яв-ся одновременно наименьшим в своей строке и наибольшим в своём столбце. Напечатать координаты какой-нибудь седловой точки.

50. Дан массив А(N) и число М. Найти такое множество элементов

A(i1),A(i2),...A(ik) (1<=i1<...
Предполагается, что такое множество заведомо существует.

51. Получить все способы расстановки шести книг разных авторов.

52. Для участия в конкурсе из класса в 20 человек требуется выбрать троих.

Сколькими способами это можно сделать.

53. Получить все четырёхзначные числа, у которых все цифры нечётные.

54. Даны 4 точки заданные координатами. Является ли данная фигура трапецией.

55. Определить наименшее число, которое при делении на 2,3,4,5,6,7,8,9 дает одинаковые остатки - 1.

56. Определить k - кол-во трёхзначных чисел сумма цифр которых равна a. (1<=a<=27)

57. Даны стороны треугольника : a,b,c. Вычислить косинус углов по теореме косинусов : sqr(c)=sqr(a)+sqr(b)-2ab*cos(alfa)

58. Пара кроликов каждый год дает приплод двух (самку и самца) которые через 2 месяца способны давать новый приплод. Сколько кроликов будет через год.

59. Дано предложение t. Заменить в нем слово 'потоп' словом 'потопкот'.

60. Дан текст. Определить в нем кол-во слов 'кот'.


program z1;

{Зад. лин таб, сост из цел. чисел. Опред есть

ли в этой таб хотя бы одно число кратное k}

uses crt;

var a : array [1..100] of longint;

i,k,n : longint;

begin

clrscr;

write('введите кол-во элм таблицы:');readln(n);

write('введите число:');readln(k);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

for i:=1 to n do if k mod a[i]=0 then write(a[i],' ');

readln;

end.

program z2;

{Даны n чисел. Опред яв-ся ли они взаимно простыми

т.е. имеют общий делитель отлич. от единицы }

uses crt;

var a : array [1..100] of longint;

i,max,n,j : longint;

begin

clrscr;

write('введите кол-во чисел:');readln(n);

for i:=1 to n do

begin

write(i,') число:');readln(a[i]);


end;

max:=a[1];

for i:=2 to n do if max
for i:=2 to max do

for j:=1 to n do

if a[j] mod i=0 then beginwrite('ДА');readln;halt;end

else beginwrite('НЕТ');readln;halt;end;

readln;

end.

program z3;

{Встречаются ли в разложении числа на простые

множители одинаковые множители}

uses crt;

var b:array[1..1000] of longint;

c:array[1..100] of longint;

i,j,a,k,flag:longint;label met;

begin

clrscr;

write('Введите число:');readln(k);

b[1]:=2;a:=3;j:=1;flag:=0;

met:while a<=k do

begin

for i:=2 to a-1 do

if a mod i=0 then flag:=1;

if flag=0 then begin

inc(j);b[j]:=a;inc(a);goto met;

end;

flag:=0;inc(a);

end;

j:=0;i:=1;

while k>1 do

if k mod b[i]=0 then begin

inc(j);c[j]:=b[i];k:=k div b[i];

end

else inc(i);


for i:=1 to j-1 do

for a:=i+1 to j do

if c[i]=c[a] then begin

write('повторяются');readln;halt;

end;

write('не повторяются');readln;

end.

program z4;{Найти все простые делители натурального числа N}

uses crt;

var i,n,j,a,flag:longint;

b:array[1..1000] of longint;label met;

begin

clrscr;

write('Введите число: ');readln(n);

b[1]:=2;a:=3;j:=1;flag:=0;

met:while a<=n do

begin

for i:=2 to a-1 do

if a mod i=0 then flag:=1;

if flag=0 then begin

inc(j);b[j]:=a;inc(a);goto met;

end;

flag:=0;inc(a);

end;

for i:=1 to j do if n mod b[i]=0 then write(b[i],' ');readln;

end.

program z5;

{ Дан текст. Найти все палиндромы (т.е. слова-перевертыши) в этом тексте.}

uses crt;

var

b,a,k: string;

i,j,q: longint;

c: array[1..30] of string;

begin

clrscr; {очищаем дисплей}

write('Ведите текст разделенный пробелами: ');

readln(a); {чтение введенного текста}

b:=''; {инициализация переменных}

j:=1;

k:='';

for i:=1 to length(a) do if (a[i]=' ') then begin {ищем пробелы в тексте}

c[j]:=b; {если есть ' ', то }

inc(j); { запоминаем слово }

b:='';

end else b:=b+a[i]; c[j]:=b;

for i:=1 to j do begin {проверяем, является ли слово палиндромом}

b:=c[i];

k:='';


for q:=1 to length(b) do k:=b[q]+k;

if b=k then writeln(b); {сравнение и вывод результата}

end;

write('Нажмите любую клавишу...'); readln;

end.

program z6;

{ Дана строка слов разделенных пробелом ,в конце строки точка.

Поменять местами два центральных слова если их количество четно}

uses crt;

var a,b:string;i,j,l:longint;

c:array[1..30]of string;

begin

clrscr;

write('введите текст: ');readln(a);

b:='';j:=1;l:=length(a);

if (a[l]<>'.')then begin

writeln(' ОШИБКА!!!');

write(' В конце должна стоять точка');

readln;halt;

end;

for i:=1 to l do

if (a[i]=' ')or(a[i]='.')then begin

c[j]:=b;b:='';inc(j);

end

else b:=b+a[i];j:=j-1;

if j mod 2<>0 then

beginwrite('количество слов нечетно');readln;halt;end;

l:=j div 2;b:=c[l];c[l]:=c[l+1];c[l+1]:=b;

for i:=1 to j do write(c[i],' ');

readln;

end.

program z7;

{Опред можно ли из символов входящих в строку а,сост строку с}

uses crt;

var la,lc,i,j:longint;a,c:string;label m;

begin

clrscr;

write('введите строку a: ');readln(a);

write('введите строку c: ');readln(c);

la:=length(a);lc:=length(c);

if la
write('строка а > строки c');readln;halt;end;

m:for i:=1 to la do

for j:=1 to lc do

if a[i]=c[j] then begin

delete(a,i,1);la:=la-1;

delete(c,j,1);lc:=lc-1;goto m;

end;

if c='' then write('можно')

else write('нельзя');readln;

end.

program z8;

{ Уплотнить линейный массив удалив нули и сдвинув влево остальные элм.}

uses crt;

var m,i,k:longint; a:array[1..100]of longint;

begin

clrscr;

write('введите кол-во элм таблицы: ');readln(k);

for i:=1 to k do

begin

write('a[',i,']=');readln(a[i]);

end;

m:=0;

for i:=1 to k do

if a[i]=0 then inc(m)

else a[i-m]:=a[i];k:=k-m;

for i:=1 to k do write(a[i],' ');readln;

end.

program z9; {Найти в одномерном числовом массиве элм. ,

который наибольшее кол-во раз повторяется в массиве.Вывести это

число и кол-во его вхождений в массив }

uses crt;

var a:array[1..1000]of longint;

b:array[1..500]of longint;

i,j,n,k,l,max,min:longint;

begin

clrscr;

write('Введите кол-во элм таблицы:');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then begin

min:=a[j];a[j]:=a[i];

a[i]:=min;

end;

l:=a[1];j:=0;k:=1;

for i:=2 to n+1 do

if l=a[i] then inc(k)

else begin

inc(j);b[j]:=k;k:=1;

l:=a[i];

end;

max:=b[1];

for i:=2 to j do if max
writeln('число:',a[1]);

write('их кол-во:',max);readln;

end.

program z10;

{Дан одномерный массив размерностью N из положительных и

отрицательных чисел .Упорядочить так ,чтобы в начале распола-

гались все отрицательные ,а затем все положительные ,сохранив порядок

следования и не создавая новый массив.}

uses crt;

var a:array[1..100]of longint;

i,j,n,k,l:longint;

begin

clrscr;

write('Введите кол-во элм таблицы:');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

j:=1;

for i:=1 to n do

if a[i]<0 then begin

l:=a[i];for k:=i downto j do

a[k]:=a[k-1];a[j]:=l;inc(j);

end;

for i:=1 to n do write(a[i],' ; ');readln;

end.

program z11; {Дан прямоугольный целочисленний массив

размером N*N.Опред. яв-ся ли данный массив магическим квадратом,

т.е. сумма элм в строках, столбцах и на главных диагоналях равна }

uses crt;

var a:array[1..100,1..100]of longint;

b:array[1..100]of longint; i,j,l,n:longint;

begin

clrscr;

write('n=');readln(n);

for i:=1 to n do

for j:=1 to n do

begin

write('a[',i,',',j,']=');readln(a[i,j]);

end;

j:=1;l:=1;

repeat;

for i:=1 to n do b[j]:=b[j]+a[i,l];

inc(j);inc(l);

until l>n;

l:=1;

repeat;

for i:=1 to n do b[j]:=b[j]+a[l,i];

inc(j);inc(l);

until l>n;

i:=1;l:=1;

repeat;

b[j]:=b[j]+a[i,l];

inc(i);inc(l);

until l>n;

i:=n;l:=1;inc(j);

repeat;

b[j]:=b[j]+a[i,l];

inc(l);i:=i-1;

until l>n; j:=n+n+2;l:=1;

for i:=2 to j do if b[1]=b[i] then inc(l);

if l=j then write('ДА')

else write('НЕТ');readln;

end.

program z12;

{Сост. прог. , которая размещает элм. s неупорядоченного массива

A на место, соостветствующее ему в упорядоченном массиве}

uses crt;

var a:array[1..100]of longint;

b:array[1..100]of longint;

i,j,n,a1,p,ap,min:longint;

begin

clrscr;

write('Введите кол-во элм таблицы:');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);b[i]:=a[i];

end;

write('Введите число:');readln(a1);

write('Введите его позицию:');readln(ap);

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then begin

min:=a[j];

a[j]:=a[i];

a[i]:=min;

end;

for i:=1 to n do if a1=a[i] then p:=i;

min:=b[ap];

b[ap]:=b[p];

b[p]:=min;

for i:=1 to n do write(b[i],' ');readln;

end.

program z13;

{Женщина шла на базар и разбила яйца,лежавшие у неё в корзине

Она сказала,что не знает сколько яиц у неё было,но когда она

брала по 2,3,4,5 и 6 яиц то оставалось в остатке одно.Когда

же она брала по 7 яиц ,то ничего не оставалось в остатке.

Сколько яиц могло быть в корзине}

uses crt;

var i:longint;

begin

clrscr;textcolor(10);

for i:=1 to 5000 do

if (i mod 2=1)and(i mod 3=1)and

(i mod 4=1)and(i mod 5=1)and

(i mod 6=1)and(i mod 7=0)then

begin

writeln('может быть:',i);

end;

write('Ну смотря какая у женщины корзина!!!');readln;

end.

program z14;

{Вводится слово из N различных букв (N<10).

Получить все возможные слова из S букв этого слова(S<=N)}

uses crt,graph;

var do1,po1,a,i1:string;s,i2,do2,po2,i,j,k,l,m,fl1,fl2,n:longint;

er:integer;b:array[1..100]of longint;

begin

clrscr;textcolor(10);

write('Введите слово:');readln(a);

write('Введите длину нужных вам слов:');readln(s);

n:=length(a);

if n>9 then beginwrite('ОШИБКА!!! n<10 ');readln;halt;end;

if s>n then beginwrite('ОШИБКА!!! s<=n ');readln;halt;end;

for i:=1 to s do do1:=do1+'0';

for i:=1 to s do po1:=po1+'9';

do1[1]:='1';val(do1,do2,er);val(po1,po2,er);j:=0;

for i:=do2 to po2 do

begin

str(i,i1);fl1:=0;fl2:=0;

for m:=1 to length(i1) do

begin

val(i1[m],i2,er);

if (n
end;

for l:=1 to s-1 do

for k:=l+1 to s do

if (i1[l]=i1[k])or(fl2=1)then fl1:=1;

if fl1=0 then begin

inc(j);b[j]:=i;

end;

end;

for i:=1 to j do

begin

str(b[i],do1);

for k:=1 to length(i1)do

begin

if do1[k]='1'then write(a[1]);

if do1[k]='2'then write(a[2]);

if do1[k]='3'then write(a[3]);

if do1[k]='4'then write(a[4]);

if do1[k]='5'then write(a[5]);

if do1[k]='6'then write(a[6]);

if do1[k]='7'then write(a[7]);

if do1[k]='8'then write(a[8]);

if do1[k]='9'then write(a[9]);

end;write(' ');

end;readln;

end.

program z15;

{ Дана матрица N*N.

1) заменить нулями элементы, расположенные на главной диагонали и выше (ниже) её;

2) найти сумму элементов, расположенных на побочной диагонали и выше (ниже) её;

3) найти максимальный из элементов, расположенных на побочной диагонали и выше (ниже) её;

4) найти произведение элементов, расположенных на побочной диагонали и выше (ниже) её. }

uses crt;

var a : array [1..50,1..50] of longint;

b : array [1..50,1..50] of longint;

i,j,n,l,max,sum : longint;

procedure prisvoi;

begin

for i:=1 to n do

for j:=1 to n do a[i,j]:=b[i,j];

end;

procedure print;

begin

textcolor(7);

for j:=1 to n do

begin

writeln;

for i:=1 to n do write(a[i,j],' ');

end;

writeln;

end;

begin

clrscr;textcolor(10);

write('Введите кол-во элементов таблицы N*N N=');readln(n);

for i:=1 to n do

for j:=1 to n do

begin

write('a[',i,',',j,']=');readln(a[i,j]);b[i,j]:=a[i,j];

end;

{1}

for i:=1 to n do

for j:=1 to i do a[i,j]:=0;

print;prisvoi;

for i:=1 to n do

for j:=i to n do a[i,j]:=0;

print;prisvoi;l:=0;sum:=0;

{2}

for i:=1 to n do

begin

for j:=n downto n-l do sum:=sum+a[i,j];

inc(l);

end;textcolor(11);

write('сумма элементов по побочной диагонали и ниже: ',sum);

writeln;l:=0;sum:=0;

for j:=1 to n do

begin

for i:=1 to n-l do sum:=sum+a[i,j];

inc(l);

end;

write('сумма элементов по побочной диагонали и выше: ',sum);

writeln('');max:=a[1,1];

{3}

for i:=1 to n do

for j:=1 to i do

if a[i,j]>max then max:=a[i,j];textcolor(9);

write('максимальный элемент по главной диагонали и выше: ',max);

writeln;max:=a[1,1];

for i:=1 to n do

for j:=i to n do

if a[i,j]>max then max:=a[i,j];

write('максимальный элемент по главной диагонали и ниже: ',max);

writeln;l:=0;sum:=1;

{4}

for i:=1 to n do

begin

for j:=n downto n-l do sum:=sum*a[i,j];

inc(l);

end;textcolor(4);

write('произведение элементов по побочной диагонали и ниже: ',sum);

writeln;l:=0;sum:=1;

for j:=1 to n do

begin

for i:=1 to n-l do sum:=sum*a[i,j];

inc(l);

end;

write('произведение элементов по побочной диагонали и выше: ',sum);

writeln;

readln;

end.

program z16;

{ Из семи красных и восьми белых роз требуется составить

букет из пяти роз. Перечислить все возможные варианты. }

uses crt,f_mouse;

var m,k,i1,i2,i3,i4,i5,p3,j,s1,s2 :longint;

er :integer;

p1 :string;

p:array[1..1000]of longint;

procedure symma(g:longint;var p2:longint);

begin

p2:=0;str(g,p1);

for i3:=1 to 5 do

begin

val(p1[i3],j,er);

p2:=p2+j;

end;

end;

begin

clrscr;

for i1:=1 to 2 do

for i2:=1 to 2 do

for i3:=1 to 2 do

for i4:=1 to 2 do

for i5:=1 to 2 do

begin

m:=i5+i4*10+i3*100+i2*1000+i1*10000;

inc(k);p[k]:=m;

end;

for i1:=1 to k-1 do

for i2:=i1+1 to k do

begin

symma(p[i1],s1);

symma(p[i2],s2);

if s1=s2 then p[i2]:=0;

end;

for i2:=1 to k do

if p[i2]<>0 then write(p[i2],' ');

readln;

end.

program z17;

{ На клеточном листе бумаги размером M/N расположены прямоугольники.

Задан массив M/N в котором элемент a[i,j]=1 если клетка листа (i,j)

яв-ся частью прямоугольника, и a[i,j]=0 если это пустая клетка.

Напечатать число прямоугольников. }

uses crt;

var i,j,m,n,k:longint;

a:array[1..100,1..100]of integer;

begin

clrscr;

write('m=');readln(m);

write('n=');readln(n);

for j:=1 to n do

for i:=1 to m do

begin

write('a[',i,',',j,']=');readln(a[i,j]);

end;

for j:=1 to n do

for i:=1 to m do

if a[i,j]=1 then

if (a[i+1,j]=0)and(a[i+1,j+1]=0)and(a[i,j+1]=0)then inc(k);

write('Ответ: ',k);

readln;

end.

program z18; {Напечатать все совершенные числа меньше m}

{ Справка: Совершенными называются числа сумма делителей включая 1,

которых равна самому числу, делители не должны быть

равны самому числу }

uses crt;

var i,j,k,m,sum:longint;

b:array[1..50]of longint;

begin

clrscr;

write('введите ограничение: ');readln(m);

i:=1;{write('1');}

while i<=m do

begin

sum:=0;k:=1;

for j:=1 to i-1 do if i mod j=0 then begin

b[k]:=j;inc(k);

end;

for j:=1 to k-1 do sum:=sum+b[j];

if i=sum then write(' ',i);inc(i);

end;

readln;

end.

program z19;{Дан прямоугю массив сост из различ элм.

В каждой строке выбирается мин. элм., а среди них максю элм.

Напечатать номер строки в кот расположено получ. число }

uses crt;

var i,j,k,m,n,min,max:longint;

a:array[1..50,1..50]of longint;

b:array[1..70]of longint;

begin

clrscr;textcolor(11);

write('введите кол-во столбцов: ');readln(m);

write('введите кол-во строк: ');readln(n);

for j:=1 to n do

for i:=1 to m do

begin

write('a[',j,',',i,']=');readln(a[j,i]);

end;

k:=1;

for j:=1 to n do

begin

min:=a[j,1];

for i:=2 to m do

if min>a[j,i] then min:=a[j,i];

b[k]:=min;inc(k);

end;

max:=b[1];

for j:=2 to k-1 do if max
for j:=1 to n do

for i:=1 to m do

if a[j,i]=max then begin

write('№ строки:',j);

readln;halt;

end;

end.

program z20;

{Дана таблица, поменять местами строки и столбцы}

uses crt;

var i,j,m,n:longint;

a:array[1..20,1..30]of longint;

b:array[1..30,1..20]of longint;

begin

clrscr;textcolor(11);

write('введите кол-во столбцов: ');readln(m);

write('введите кол-во строк: ');readln(n);

for i:=1 to m do

for j:=1 to n do

begin

write('a[',i,',',j,']=');readln(a[i,j]);

end;

for i:=1 to m do

for j:=1 to n do b[j,i]:=a[i,j];

write('исходная таблица:');

for j:=1 to n do

begin

writeln('');

for i:=1 to m do write(' ',a[i,j]);

end;

writeln('');write('Ответ:');

for j:=1 to m do

begin

writeln('');

for i:=1 to n do write(' ',b[i,j]);

end;

readln;

end.

program z21;

{Любую сумму больше 7 можно выплатить без сдачи

трешками и пятерками т.е.для n>7 найти все целые неотриц.

а и в ,что 3а+5в=n}

uses crt;

var n,a,b:longint;label met;

begin

met: clrscr;

write('введите число n=');readln (n);

if n<8 then begin

write('n>7введите число n=');goto met;


end;

for a:=0 to trunc(n/2) do

for b:=0 to trunc(n/2) do

if a*3+b*5=n then writeln('a=',a,' b=',b);

readln;

end.

program z22;

{Два натур. числа наз. дружественными ,если

каждое из них равно сумме всех делителей другого,

кроме самого этого числа.Найти все пары в данном

диапозоне.}

uses crt;

var i,j,n,k,s,p1,p2,fl:longint;

procedure delit(l:longint;var s:longint);

var m:longint;

begin

s:=0;

for m:=1 to l-1 do

if l mod m=0 then s:=s+m;

end;


begin

clrscr;

write('введите диапозон через пробел:');readln(n,k);

for i:=n to k do

for j:=n to k do

begin

fl:=0;

delit(i,s);p1:=s;

delit(j,s);p2:=s;

if (p1=j)and (p2=i)then writeln(p1,' ',p2);

end;

readln;

end.

program z23;

{Найти наибольшее число из данного диапозона

у которого наибольшее колич.делителей}

uses crt;

var i,j,n,k,kk,p,max:longint;

a:array[1..1000]of longint;

begin

clrscr;

write('введите диапозон через пробел:');readln(n,k);

for i:=n to k do

begin

kk:=0;

for j:=2 to i-1 do if i mod j=0 then inc(kk);a[i]:=kk;

end;

max:=a[n];

for i:=n+1 to k do

if max
max:=a[i];p:=i;

end;

writeln('Ответ: ',p);

readln;

end.

program z24;

{Два двузнач.числа,записанных одно за другим

образуют четырехзнач.число,которое делится на

их произведение.Найти эти числа.}

uses crt;

var i,j,m,p:longint;i1,j1,m1:string;

er:integer;

begin

clrscr;

for i:=10 to 99 do

for j:=10 to 99 do

begin

str(i,i1);str(j,j1);

m1:=i1+j1;val(m1,m,er);p:=i*j;

if m mod p=0 then writeln(m);

end;

readln;

end.

program z25;

{Найти натуральные числа из данного диапозона

у которых колич.делителей является произведением

двух простых чисел.}

uses crt;

var i,j,n,k,kk,a,fl,l:longint;

b:array[1..100]of longint;label m,met;

begin

clrscr;

write('введите диапозон через пробел:');readln(n,k);

b[1]:=2;a:=3;j:=1;fl:=0;

met:while a<=100 do

begin

for i:=2 to a-1 do if a mod i=0 then fl:=1;

if fl=0 then begin

inc(j);b[j]:=a;inc(a);goto met;

end; fl:=0;inc(a);

end;i:=n;

m:while i<=k do

beginkk:=0;

for j:=1 to i do if i mod j=0 then inc(kk);

for j:=1 to trunc(kk/2) do

for l:=1 to trunc(kk/2) do

if kk=b[j]*b[l] then begin

writeln(i);inc(i);goto m;

end; inc(i);

end;

readln;

end.

program z26;

{Ввести список фамилий в любом порядке.

Распечатать список в алфавитном порядке.}

uses crt;

var i,j,l,n,k:longint;sl1,sl2,a:string;

alf,b:array[1..10] of string;label m;

begin

clrscr;

write('введите количество фамилий:');readln(n);

writeln('введите фамили:');

for i:=1 to n do

begin

write(i,') ');readln(b[i]);

end;

i:=1;a:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';

while i<=n-1 do

begin

j:=2;

while j<=n do

begin

sl1:=b[i];sl2:=b[j];l:=0;

for k:=1 to 33 do

begin

inc(l);

if (sl1[l]=a[k])and(sl2[l]<>a[k])or(length(sl1)
then goto m;

if (sl1[l]<>a[k])and(sl2[l]=a[k])then

begin

alf[1]:=b[j];

b[j]:=b[i];

b[i]:=alf[1];

goto m;

end;

end;

m:inc(j);

end;

inc(i);

end;clrscr;

for i:=1 to n do writeln(i,') ',b[i]);

readln;

end.

program z27;

{Определить,какая цифра находится в позиции

числовой последовательности-1011112131415...

...979899-подряд выписаны все двузнач.числа}

uses crt;

var i,k:longint;j,a:string;

begin

clrscr;

write('введите номер :');readln(k);

for i:=10 to 99 do

begin

str(i,j);

a:=a+j;

end;

write('Ответ:',a[k]);

readln;

end.

program z28;

{ Вывести список шестизначных чётных чисел,делящихся

без остатка на сумму своих цифр в 10 колонок}

uses crt;

var i,j,k,m,j1,l:longint;

i1:string;er:integer;

begin

clrscr;

textcolor(10);i:=100000;

while i<=999998 do

begin

m:=0;str(i,i1);

for j:=1 to 6 do

begin

val(i1[j],j1,er);m:=m+j1;

end;

if i mod m=0 then

begin

inc(l);inc(k);

if k=11 then begin writeln('');k:=1; end;

if l=240 then begin l:=0;readln; end;

write(i,' ');

end;i:=i+2;

end;

readln;

end.

program z29;

{ Вывести список трёхзначных чисел ,делящихся

без остатка на произведение своих цифр в 5 колонок

Поставить защиту от деления на ноль}

uses crt;

var i,j,k,m,j1:longint;

i1:string;er:integer;label mmm;

begin

clrscr;

textcolor(11);i:=10;

while i<=999 do

begin

m:=1;str(i,i1);

for j:=1 to 3 do

begin

val(i1[j],j1,er);m:=m*j1;

end;

if m=0 then goto mmm;

if i mod m=0 then

begin

inc(k);if k=6 then begin writeln('');k:=1; end;

write(i,' ');

end;mmm: inc(i);

end;

readln;

end.

program z30;

{ Вывести список симмитричных нечётных чисел

(например 34543 или 70507) в 5 колонок}

uses crt;

var i,j,k,m,j1,l:longint;

i1:string;er:integer;

begin

clrscr;

textcolor(10);i:=10001;

while i<=99999 do

begin

m:=0;str(i,i1);

for j:=5 downto 1 do

begin

val(i1[j],j1,er);m:=m*10+j1;

end;

if i=m then begin

inc(l);inc(k);

if k=6 then begin writeln('');k:=1; end;

if l=125 then begin l:=0;readln; end;

write(i,' ');

end;i:=i+2;

end;

readln;

end.

program z31;

{ Вывести список шестизначных "счасливых" чисел

(сумма первых трёх цифр равна сумме трёх последних),

кратных семи в 10 колонок}

uses crt;

var i,j,k,m1,m2,j1,l:longint;

i1:string;er:integer;

begin

clrscr;

textcolor(11);i:=100000;

while i<=999999 do

begin

m1:=0;m2:=0;str(i,i1);

for j:=1 to 3 do

begin

val(i1[j],j1,er);m1:=m1+j1;

val(i1[j+3],j1,er);m2:=m2+j1;

end;

if (m1=m2)and(i mod 7=0)then

begin

inc(l);inc(k);

if k=11 then begin writeln('');k:=1; end;

if l=250 then begin l:=0;readln; end;

write(i,' ');

end;inc(i);

end;

readln;

end.

program z32;

{ Определить кол-во слов в строке. Слова

отделяются одним или несколькими пробелами }

uses crt;

var i,l,k,j:longint;a:string;

begin

clrscr;textcolor(11);

write('введите текст: ');readln(a);l:=length(a);

for i:=1 to l do

if (a[i]=' ')and(a[i+1]=' ')

then inc(j)

else a[i-j]:=a[i];l:=l-j;

if a[1]=' 'then begin delete(a,1,1);l:=l-1; end;

if a[l]<>' ' then begin inc(l);a[l]:=' '; end;

for i:=1 to l do if a[i]=' 'then inc(k);

write(' кол-во слов: ',k);

readln;

end.

program z33;


{ Определить номера позиций и кол-во повторений

запрашиваемого символа в строке введённой с клавиатуры}

uses crt;

var i,l,kol:longint;a,aa:string;

begin

clrscr;textcolor(11);

write('введите текст: ');readln(a);

write('введите символ: ');readln(aa);

if length(aa)>1 then halt;l:=length(a);

for i:=1 to l do

if a[i]=aa then

begin

inc(kol);write(' ',i);

end;

writeln('');write(' кол-во символов: ',kol);

readln;

end.

program z34;

{ Найти и заменить определённый символ в строке

введённой с клавиатуры. Программа должна запрашивать

заменяемый и заменяющий символы, а также подтверждение

каждой замены символа с сообщением его номера в строке.}

uses crt;

var i,l:longint;a,a1,a2,p:string;

begin

clrscr;textcolor(11);

write('введите текст: ');readln(a);

write('заменяемый символ: ');readln(a1);

write('заменяющий символ: ');readln(a2);

if (length(a1)>1)or(length(a2)>1) then halt;l:=length(a);

for i:=1 to l do

if a[i]=a1 then

begin

clrscr;a[i]:='_';writeln(a);

writeln('Вы подтверждаете замену ',i,'-ого символа? (y/n)');

readln(p);

if p='y' then a[i]:=a2[1]

else a[i]:=a1[1];

end;

clrscr;write(a);readln;

end.

program z35;


{ Определить самое короткое и самое длинное

слово в строке введённой с клавиатуры }

uses crt;

var i,l,min,max,p1,p2,j:longint;a,b:string;

t1:array[1..60]of string;

t2:array[1..60]of longint;

begin

clrscr;textcolor(11);

write('введите текст: ');readln(a);

l:=length(a)+1;a[l]:=' ';

for i:=1 to l do

if a[i]=' ' then begin

inc(j);t1[j]:=b;

t2[j]:=length(b);b:='';

end

else b:=b+a[i];

max:=t2[1];min:=t2[1];p1:=1;p2:=1;

for i:=1 to j do

begin

if max
if min>t2[i] then begin min:=t2[i];p2:=i; end;

end;

writeln('самое длинное слово: ',t1[p1]);

writeln('самое короткое слово: ',t1[p2]);

textcolor(13);write('P.S.');

writeln(' Если слово не выведено на печать, то вы ');

write(' поставили несколько подряд идущих пробелов!');

readln;

end.

program z36;

{ Слить массивы А и В по 100 элементов в массив С

из 200 элементов так, чтобы вначале шли элементы

меньше среднего значения по всему массиву С }

uses crt;

var i,j,aa,bb,d,s:longint;

a:array[1..100]of longint;sr:real;

b:array[1..100]of longint;

c:array[1..200]of longint;

begin

clrscr;textcolor(11);

{write('диапазон: ');readln(d);}

for i:=1 to 100 do

begin

a[i]:=1;{random(d);}

b[i]:=3;{random(d);}

end;

for i:=1 to 100 do sr:=sr+a[i]+b[i];sr:=sr/200;

while j<100 do

begin

inc(j);

if a[j]
if b[j]
end;j:=0;

while j<100 do

begin

inc(j);

if a[j]>=sr then begin inc(s);c[s]:=a[j]; end;

if b[j]>=sr then begin inc(s);c[s]:=b[j]; end;

end;

for i:=1 to 200 do write(c[i],' ');

readln;

end.

program z37;

{Слить массивы А и В по 100 элементов в массив С

из 200 элементов так, чтобы элементы массива А

имели в С нечётные номера }

uses crt;

var i,j,k,aa,bb,d:longint;

a:array[1..100]of longint;

b:array[1..100]of longint;

c:array[1..200]of longint;

begin

clrscr;textcolor(11);

{write('диапазон: ');readln(d);}

for i:=1 to 100 do

begin

a[i]:=1;{random(d);}

b[i]:=2;{random(d);}

end;

for i:=1 to 200 do

if i mod 2=0 then begin inc(bb);c[i]:=b[bb]; end

else begin inc(aa);c[i]:=a[aa]; end;

for i:=1 to 200 do write(c[i],' ');

readln;

end.

program z38;

{Слить массивы А и В по 100 элементов в массив С

из 200 элементов так, чтобы элементы массива А

имели номера от 51 до 150 }

uses crt;

var i,j,k,aa,bb,d:longint;

a:array[1..100]of longint;

b:array[1..100]of longint;

c:array[1..200]of longint;

begin

clrscr;textcolor(11);

{write('диапазон: ');readln(d);}

for i:=1 to 100 do

begin

a[i]:=0;{random(d);}

b[i]:=1;{random(d);}

end;

for i:=1 to 50 do c[i]:=b[i];bb:=49;

for i:=51 to 150 do begin inc(aa);c[i]:=a[aa]; end;

for i:=151 to 200 do begin inc(bb);c[i]:=b[bb];end;

for i:=1 to 200 do write(c[i],' ');

readln;

end.

program z39;

{ Слить массивы А и В по 100 элементов в массив С из 200

элементов так, чтобы элементы А и В чередовались по 10 штук}

uses crt;

var i,j,aa,bb,d,jj,s:longint;

a:array[1..100]of longint;sr:real;

b:array[1..100]of longint;

c:array[1..200]of longint;

begin

clrscr;textcolor(11);

{write('диапазон: ');readln(d);}

for i:=1 to 100 do

begin

a[i]:=1;{random(d);}

b[i]:=2;{random(d);}

end;

bb:=1;

for i:=1 to 200 do

begin

if aa=10 then begin aa:=0;inc(bb);

if bb mod 2=0 then s:=1 else s:=0;end;

if s=0 then begin inc(j);c[i]:=a[j]; end;

if s=1 then begin inc(jj);c[i]:=b[jj]; end;

inc(aa);

end;

for i:=1 to 200 do write(c[i],' ');

readln;

end.

program z40;

{ Составить программу, создающую из файла

копию, но записаную задом наперёд. }

uses crt;

var fl1,fl2:text;a,b:string;

i,l:longint;

begin

clrscr;

assign(fl1,'input.txt');

assign(fl2,'output.txt');

reset(fl1);

readln(fl1,a);

close(fl1);

l:=length(a);

for i:=l downto 1 do b:=b+a[i];

rewrite(fl2);

write(fl2,b);

close(fl2);

write(b);

readln;

end.

program z41;

{Составить программу, удаляющую в файле текст после первой точки.}

uses crt;

var fl1:text;a:string;

i,l,poz:longint;label m;

begin

clrscr;

assign(fl1,'input.txt');

reset(fl1);

readln(fl1,a);

close(fl1);

l:=length(a);

rewrite(fl1);

for i:=1 to l do if a[i]='.'then begin poz:=i;goto m; end;

m:for i:=1 to poz do write(fl1,a[i]);

close(fl1);

end.

program z42;

{ Найти остаток от деления числа, записываемого с помощью

k семёрок, на число а (k и a -заданые натуральные числа) }

uses crt;

var i,k,a,ss:longint;er:integer;s:string;

begin

clrscr;

write('k=');readln(k);

write('a=');readln(a);

for i:=1 to k do s:=s+'7';

val(s,ss,er);

ss:=ss mod a;

write('Ответ: ',ss);

readln;

end.

program z43;

{ На интервале (1000 ; 9999) найти все простые числа,

каждое из которых обладает тем свойством, что сумма

первой и второй цифр записи этого числа равна сумме

третьей и четвёртой цифр }

uses crt;

var b:array[1..1000] of longint;er:integer;

i,j,fl,h,s1,s2,s3,s4:longint;

ii:string;label met1,met2;

begin

clrscr;

i:=1000;

met1:while i<=9999 do

begin

for j:=2 to i-1 do

if i mod j=0 then begin fl:=1;goto met2; end;

met2:if fl=0 then begin

str(i,ii);

val(ii[1],s1,er);val(ii[3],s3,er);

val(ii[2],s2,er);val(ii[4],s4,er);

if s1+s2=s3+s4 then

begin

inc(h);b[h]:=i;inc(i);goto met1;

end;

end;

fl:=0;inc(i);

end;

for i:=1 to h do write(b[i],' ');

readln;

end.

program z44;

{ Среди простых чисел, не превосходящих n, найти такое,

в двоичной записи которого максимальное число единиц. }

uses crt;

var b:array[1..1000]of longint;

c:array[1..1000]of longint;

kol,i,j,h,fl,m,g,max,poz:longint;

label met1,met2;

procedure sistema(n:longint;var kol:longint);

var a:array[1..10]of longint;

var l,k:longint;gg:string;

begin

j:=0;k:=0;

while n>=1 do

begin

inc(k);inc(j);

a[j]:=n mod 2;

n:=n div 2;

end;

for j:=1 to k do g:=g*10+a[k+1-j];

str(g,gg);kol:=0;

for l:=1 to length(gg) do

if gg[l]='1' then inc(kol);

end;

begin

clrscr;

write('n=');readln(m);

sistema(2,kol);c[1]:=2;b[1]:=kol;i:=3;h:=1;

met1:while i<=m do

begin

for j:=2 to i-1 do

if i mod j=0 then begin fl:=1;goto met2; end;

met2:if fl=0 then begin

inc(h);c[h]:=i;

sistema(i,kol);

inc(i);b[h]:=kol;goto met1;

end; fl:=0;inc(i);

end;

max:=b[1];

for i:=2 to h do

if max
write('Ответ:',c[poz]);

readln;

end.

program z45;

{ Найти двоичное представление для чётных совершенных чисел

вида 2 в степени (p-1) умножить на ((2 в степени p)-1) }

uses crt;

var ch,p,s,sum,i,j,f,m,g:longint;

procedure sistema(n:longint;var g:longint);

var t:array[1..10]of longint;k:longint;

begin

j:=0;k:=0;

while n>=1 do

begin

inc(k);inc(j);t[j]:=n mod 2;n:=n div 2;

end;

for j:=1 to k do g:=g*10+t[k+1-j];

end;

begin

clrscr;

write('ограничение: m=');readln(m);

p:=1;s:=2;

while p<=m do

begin

ch:=(s div 2)*(s-1);

if ch mod 2=0 then

begin sum:=0;

for j:=1 to ch-1 do if ch mod j=0 then sum:=sum+j;

if ch=sum then

begin sistema(ch,g);writeln(g); end;

end;

inc(p);s:=s*2;

end;

readln;

end.

program z46;

{ Задана последовательность состоящая из единиц и нулей.

Определить кол-во М-значных чисел, входящих в указаную

последовательность, которые делятся на 21. }

uses crt;

var i,j,m,s,l,kol,y:longint;g,a:string;er:integer;

procedure step(a,n:longint;var p:longint);

var t:integer;

begin

p:=1;

for t:=1 to n do p:=p*a;

end;

procedure sistema(g:string;m:longint;var s:longint);

var b:array[1..1000]of longint;

var k,t,p:longint;label met;

begin

for t:=1 to m do

val(g[t],b[m+1-t],er);

s:=0;

for t:=1 to m do

begin

if t=1 then begin

p:=1;goto met;

end;

step(2,t-1,p);{2}

met:s:=s+b[t]*p;

end;

end;

begin

clrscr;

write('кол-во знаков: ');readln(m);

write('последовательность:');readln(a);

l:=length(a);if m>l then halt;

for i:=1 to l+1-m do

begin

g:='';for j:=i to m+y do g:=g+a[j];inc(y);

sistema(g,m,s);if (s mod 21=0)and(s<>0)then begin writeln(s);inc(kol); end;

end;

write('Ответ:',kol);

readln;

end.

program z47;

{ Можно ли заданное натуральное число M представить

в виде суммы двух квадратов натуральных чисел. }

uses crt;

var i,j,m:longint;

begin

clrscr;

write('Введите число:');readln(m);

for i:=1 to round(sqrt(m))+1 do

for j:=1 to round(sqrt(m))+1 do

if i*i+j*j=m then begin

write('Можно! Числа: ',i,' и ',j);

readln;halt;

end;

write('нельзя');

readln;

end.

program z48;

{ Найти минимальное число, которое представляется суммой четырёх

квадратов натуральных чисел не единственным образом }

uses crt;

var ch,a,b,c,d,k,cc:longint;

begin

clrscr;

for ch:=1 to 100 do

for a:=1 to 100 do

for b:=1 to 10 do

for c:=1 to 10 do

for d:=1 to 10 do

begin

if cc<>ch then k:=0;

if a*a+b*b+c*c+d*d=ch then begin cc:=ch;inc(k); end;

if k>1 then begin

write(ch,' - ',a,',',b,',',c,',',d);

readln;halt;

end;

end;

end.

program z49;

{ Даны числа M,N и двумерный массив M*N. Некоторый элемент массива

назовем седловой точкой, если он яв-ся одновременно наименьшим

в своей строке и наибольшим в своём столбце. Напечатать координаты

какой нибудь седловой точки. }

uses crt;

var i,j,fl,n,m,st,min,jj:longint;

t:array[1..100,1..100]of integer;

begin

clrscr;

write('n=');readln(n);

write('m=');readln(m);

for j:=1 to m do

for i:=1 to n do

begin

write('t[',i,',',j,']=');readln(t[i,j]);


end;

for j:=1 to m do

begin

min:=t[1,j];st:=1;fl:=0;

for i:=1 to n do if t[i,j]
min:=t[i,j];st:=i;

end;

for jj:=1 to m do if (minjj)then fl:=1;

if fl=0 then begin

write('-t[',st,',',j,']- число: ',t[st,j]);

readln;halt;

end;

end;

write('нету');readln;

end.

program z50;

{ Дан массив А(N) и число М. Найти такое множество элементов

A(i1),A(i2),...A(ik) (1<=i1<...
  1   2




Похожие:

3. Встречаются ли в разложении числа на простые множители одинаковые множители iconРазложение чисел на простые множители
В разложении числа 2-4 простых делителей не более 11 и одно простой делитель не более 100
3. Встречаются ли в разложении числа на простые множители одинаковые множители iconУрок по теме «Разложение на множители» 7класс Немного теории
Разложить многочлен на множители значит представить его в виде произведения более простых многочленов
3. Встречаются ли в разложении числа на простые множители одинаковые множители iconТема. Применение различных способов для разложения на множители
Цели урока: Рассмотреть разложение на множители многочленов способами вынесения общего множителя за скобки и с помощью формул сокращенного...
3. Встречаются ли в разложении числа на простые множители одинаковые множители iconДокументы
1. /Плакат ege-08-a простые множители qb.doc
3. Встречаются ли в разложении числа на простые множители одинаковые множители iconПрименение различных способов для разложения на множители

3. Встречаются ли в разложении числа на простые множители одинаковые множители icon3 уроках в неделю (102 урока за год)
Разложение квадратного трехчлена на множители, п. 4 Проверочная самостоятельная работа
3. Встречаются ли в разложении числа на простые множители одинаковые множители icon«Алгебра 7»
Цель урока: закрепление и обобщение изучаемого материала, умений и навыков умножения одночлена на многочлен, разложение на множители...
3. Встречаются ли в разложении числа на простые множители одинаковые множители iconАлгебра: Разложить на множители
В арифметической прогрессии а6 = 160, а7 = 156. Найдите номер первого отрицательного члена этой прогрессии
3. Встречаются ли в разложении числа на простые множители одинаковые множители iconАлгебра: Разложить на множители
В арифметической прогрессии а6 = 160, а7 = 156. Найдите номер первого отрицательного члена этой прогрессии
3. Встречаются ли в разложении числа на простые множители одинаковые множители iconПрактикум Тема «Разложение многочленов на множители»
Цель: Формировать умение рефлексировать, анализировать, планировать свою деятельность через применение известных правил и формул....
Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©podelise.ru 2000-2014
При копировании материала обязательно указание активной ссылки открытой для индексации.
обратиться к администрации
Документы

Разработка сайта — Веб студия Адаманов