Поиск

Полнотекстовый поиск:
Где искать:
везде
только в названии
только в тексте
Выводить:
описание
слова в тексте
только заголовок

Рекомендуем ознакомиться

'Инструкция по эксплуатации'
Повязка медицинская эластичная из неопрена для фиксации бедра Модель Elast 9910 предназначена в качестве лечебно-профилактического средства для наружн...полностью>>
'Документ'
Голографическая модель представляет собой совершенно новый взгляд на всё в нашей Вселенной: от квантовой физики и человеческого мозга до самой структу...полностью>>
'Документ'
Электронный документооборот в России становится все более распространенным. Электронные документы уже активно использует бизнес, на электронную форму ...полностью>>
'Рабочая программа'
Рабочая программа производственной практики разработана на основе Федерального государственного образовательного стандарта (далее - ФГОС) по специальн...полностью>>

Главная > Документ

Сохрани ссылку в одной из сетей:
Информация о документе
Дата добавления:
Размер:
Доступные форматы для скачивания:

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.



Похожие документы:

  1. Линейные алгоритмы (2)

    Документ
    ... чисел. Определить порядковый номер наименьшего из них. Даны целое n>0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число ... . Задано предложение y, состоящее из слов-строк. Проверить, встречается ли данное ...
  2. Блок это выделенная часть программы. Блоки можно переносить, копировать, удалять. Ctrl+K,B отметить начало блока

    Документ
    ... числа). Дана непустая последовательность целых чисел, оканчивающаяся числом -1. Определить, есть ли в последовательности хотя бы одно число, кратное 7. В случае положительного ответа определить номер первого из ...
  3. Программа алгоритм, записанный на языке программирования, служащий для выполнения каких-либо действий. Транслятор

    Программа
    ... последовательность целых чисел, оканчивающаяся числом -1. Определить, есть ли в последовательности хотя бы одно число, кратное 7. В случае положительного ответа определить порядковый номер первого из них ...
  4. Линейные и квадратные неравенства (повторение) (3 ч) Урок 1 Цели

    Урок
    ... состоящее из всех элементов, которые принадлежат хотя бы одному из этих ... целых чисел, В – множество всех целых чисел от 0 до 21, кратных 3. Число ... = (– ∞; 1)(1; 3,5)(3,5; + ∞). г) Функция определена, если 3х2 – х – 10 ≠ 0, то есть при х ≠ и х ≠ 2. О т ...
  5. Эту файловую систему используют такие операционные системы, как Windows nt/2000/XP. При установке ntfs, диск разделяется на две неравные части: первая отводитьс

    Документ
    ... этом считываются системные области диска, если они есть (информация берется из таблицы ... числа, кратного 256) Описание: этот параметр определяет, ... вашем компьютере установлена хотя бы одна сетевая карта, попробуйте ... ли это быть цель эхо и не заполнены ли ...

Другие похожие документы..