Составить программу, печатающую в порядке возрастания все не четные числа кратные 7 в промежутке [1..n].

@Dimka1judo · Регистрация: 16.01.2012

Author24 — интернет-сервис помощи студентам

Дано натуральное число N. Составить программу, печатающую в порядке возрастания все не четные числа кратные 7 в промежутке [1..n]. Число n вводится с клавиатуры.

@Фаер · 16.01.2012, 17:31

Pascal

Program Etit;
Uses crt;
Var n,k,i,x,c:integer; A:array[1..15] of integer; B:array[1..10] of integer;
Begin
ClrScr; Randomize;
Write ('n=');
Readln(n);
For i:=1 to n do
Begin
  A[i]:=random(101); Writeln(A[i]);
End;
i:=1; k:=1; TextColor(14);
While i<=n do
Begin
  If (A[i] mod 7=0) and (A[i] mod 2>0) then
  Begin
     B[k]:=A[i];
     k:=k+1;
   End;
i:=i+1;
End;
x:=1;
While x<=k do
i:=1;
   While i<=k do
    Begin
      If (B[x]<B[i]) and (x>i) then
      Begin
        c:=B[x]; B[x]:=B[k]; B[k]:=c;
       End;
    i:=i+1;
    End;
x:=x+1;
End;
For i:=1 to k-1 do
Begin
   Writeln(B[i]);
End;
Readln;
End.

@Dimka1judo · 16.01.2012, 19:34 **[ТС]**

Да это всё хорошо, но он не выводит числа кратные 7ми, просто выводит цифры, дупустим я ввёл число 7 и он выдал числа 11,38,73,60,19,65,70. а ведь надо чтобы он выдал ток 7 потому что 7 нечётное и делиться на 7.

@versa4e · 16.01.2012, 19:42

Pascal

var
  n,i:integer;
begin
  write('n=');
  readln(n);
  i:=7;
  while i<=n do
    begin
      if odd(i) then
        write(i,' ');
      inc(i,7);
    end;
  readln
end.

@Фаер · 16.01.2012, 19:49

У меня опечатка: между строками 23 и 24 вставьте: Begin

@versa4e · 16.01.2012, 20:03

КиберПёс, тс имел ввиду, что когда он вводит число, он не знает, что у вас в программе данное число олицетворяет размер массива, который вы не совсем понятно зачем использовали. Ему нужно найти числа в диапазоне 1..n, а не в заданном кол-ве случайных чисел.

@Dimka1judo · 16.01.2012, 20:12 **[ТС]**

СПС помогло, парни а можете ещё хотя бы какие то из этих решить, а то сам я не разбираюсь а лабораторку с этими решениями надо сдать. вот задачки.
Подсчитать сколько одинаковых элементов имеют два множества А и В.
Даны два множества. Найти произведение элементов одновременно принадлежащим обоим множествам.
Даны три множества выдать на экран пересечение первых двух множеств и разность получившегося множества с третьим.
5 Дано натуральное число Х. Составить программу, печатающую в порядке убывания все четные числа кратные 6 в промежутке [1..х]. Число х вводится с клавиатуры.
Даны три множества выдать на экран пересечение первых двух множеств и объединение получившегося множества с третьим.
Даны два множества. Из множества А удалить четные элементы входящие в множество В.

Добавлено через 1 минуту
СПС помогло, парни а можете ещё хотя бы какие то из этих решить, а то сам я не разбираюсь а лабораторку с этими решениями надо сдать. вот задачки.
Подсчитать сколько одинаковых элементов имеют два множества А и В.

Даны два множества. Найти произведение элементов одновременно принадлежащим обоим множествам.

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

Дано натуральное число Х. Составить программу, печатающую в порядке убывания все четные числа кратные 6 в промежутке [1..х]. Число х вводится с клавиатуры.

Даны три множества выдать на экран пересечение первых двух множеств и объединение получившегося множества с третьим.

Даны два множества. Из множества А удалить четные элементы входящие в множество В.

@Dimka1judo 6 / 6 / 5 Регистрация: 16.01.2012 Сообщений: 245
		1
	Составить программу, печатающую в порядке возрастания все не четные числа кратные 7 в промежутке [1..n]. 16.01.2012, 16:31. Показов 6999. Ответов 6 Метки нет (Все метки) Дано натуральное число N. Составить программу, печатающую в порядке возрастания все не четные числа кратные 7 в промежутке [1..n]. Число n вводится с клавиатуры. 0

@Dimka1judo 6 / 6 / 5 Регистрация: 16.01.2012 Сообщений: 245
	16.01.2012, 19:34 [ТС]	3
	Да это всё хорошо, но он не выводит числа кратные 7ми, просто выводит цифры, дупустим я ввёл число 7 и он выдал числа 11,38,73,60,19,65,70. а ведь надо чтобы он выдал ток 7 потому что 7 нечётное и делиться на 7. 0

@Фаер 792 / 398 / 260 Регистрация: 09.12.2011 Сообщений: 786 Записей в блоге: 29
	16.01.2012, 19:49	5
	У меня опечатка: между строками 23 и 24 вставьте: Begin 1

@versa4e trainspotting 1086 / 486 / 384 Регистрация: 11.11.2010 Сообщений: 773
	16.01.2012, 20:03	6
	КиберПёс, тс имел ввиду, что когда он вводит число, он не знает, что у вас в программе данное число олицетворяет размер массива, который вы не совсем понятно зачем использовали. Ему нужно найти числа в диапазоне 1..n, а не в заданном кол-ве случайных чисел. 1

@Dimka1judo 6 / 6 / 5 Регистрация: 16.01.2012 Сообщений: 245
	16.01.2012, 20:12 [ТС]	7
	СПС помогло, парни а можете ещё хотя бы какие то из этих решить, а то сам я не разбираюсь а лабораторку с этими решениями надо сдать. вот задачки. Подсчитать сколько одинаковых элементов имеют два множества А и В. Даны два множества. Найти произведение элементов одновременно принадлежащим обоим множествам. Даны три множества выдать на экран пересечение первых двух множеств и разность получившегося множества с третьим. 5 Дано натуральное число Х. Составить программу, печатающую в порядке убывания все четные числа кратные 6 в промежутке [1..х]. Число х вводится с клавиатуры. Даны три множества выдать на экран пересечение первых двух множеств и объединение получившегося множества с третьим. Даны два множества. Из множества А удалить четные элементы входящие в множество В. Добавлено через 1 минуту СПС помогло, парни а можете ещё хотя бы какие то из этих решить, а то сам я не разбираюсь а лабораторку с этими решениями надо сдать. вот задачки. Подсчитать сколько одинаковых элементов имеют два множества А и В. Даны два множества. Найти произведение элементов одновременно принадлежащим обоим множествам. Даны три множества выдать на экран пересечение первых двух множеств и разность получившегося множества с третьим. Дано натуральное число Х. Составить программу, печатающую в порядке убывания все четные числа кратные 6 в промежутке [1..х]. Число х вводится с клавиатуры. Даны три множества выдать на экран пересечение первых двух множеств и объединение получившегося множества с третьим. Даны два множества. Из множества А удалить четные элементы входящие в множество В. 0

Опции темы