0 / 0 / 0
Регистрация: 23.12.2019
Сообщений: 12
1

Трёхзначные четные числа, кратные 7

10.02.2020, 18:43. Показов 8763. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана последовательность из N целых чисел. Написать программу, которая напечатает только трёхзначные чётные числа, которые делятся на 7.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.02.2020, 18:43
Ответы с готовыми решениями:

Найти все трехзначные числа кратные 7
Найти все трехзначные числа кратные 7

Вывести на экран все чётные числа от 1 до 100 кратные 5
Вывести на экран все чётные числа от 1 до 100 кратные 5.

Найти все трехзначные числа, кратные семи, у которых сумма цифр тоже кратна семи.
Найти все трехзначные числа, кратные семи, у которых сумма цифр тоже кратна семи. Если найденное...

Найти все трехзначные числа, кратные семи, у которых сумма цифр тоже кратна семи
1. даны действительные числа S и T. получить y=F(T,-2S,1.1 7)+F(2.2,T,T-S), где...

5
Эксперт Pascal/Delphi
6810 / 4567 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
10.02.2020, 19:48 2
Лучший ответ Сообщение было отмечено arzikulov как решение

Решение

Pascal
1
2
3
4
5
6
7
8
var
  i: integer;
 
begin
  for i := 100 to 999 do
    if (i mod 7 = 0) and (i mod 2 = 0) then
      write(i:5);
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7775 / 4603 / 2825
Регистрация: 22.11.2013
Сообщений: 13,085
Записей в блоге: 1
10.02.2020, 23:41 3
ZX Spectrum-128,
нерационально. Лучше так:
Pascal
1
2
3
4
5
6
7
8
var n: Integer;
begin
  n:=999 div 7*7;
  while n>=100 do begin
    if not Odd(n) then Write(' ',n);
    Dec(n,7);
  end;
end.
или так
Pascal
1
2
3
4
5
6
7
8
var n: Integer;
begin
  n:=999 div 7*7;
  if not Odd(n) then Dec(n,7);
  while n>=100 do begin
    Write(' ',n); Dec(n,14);
  end;
end.
Добавлено через 3 минуты
или так:
Pascal
1
2
3
4
5
6
7
8
var n: Integer;
begin
  n:=999 div 7*7;
  if not Odd(n) then Dec(n,7);
  repeat
    Write(' ',n); Dec(n,14);
  until n<100;
end.
0
Модератор
9880 / 5247 / 3308
Регистрация: 17.08.2012
Сообщений: 16,029
11.02.2020, 06:25 4
Парни последовательность вроде как дана.

Решение, например, не более, чем для 1000 чисел:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const
  m = 1000;
var
  a: array[1..m] of integer;
  i, n: integer;
begin
  readln(n);
  for i := 1 to n do read(a[i]);
  readln;
  for i := 1 to n do
    if a[i] mod 14 = 0 then
      write(a[i]:4)
end.
0
Эксперт Pascal/Delphi
6810 / 4567 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
11.02.2020, 08:42 5
Вообще неверно у меня. Потому что надо было брать не все трёхзначные, а из:
Цитата Сообщение от arzikulov Посмотреть сообщение
Дана последовательность из N целых чисел
arzikulov, последовательность как задается?
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7775 / 4603 / 2825
Регистрация: 22.11.2013
Сообщений: 13,085
Записей в блоге: 1
11.02.2020, 10:51 6
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
последовательность вроде как дана
Хм, действительно. Не посмотрел на задание вообще, но на код перебора с проверкой отреагировал

По заданию трехзначность тоже нужно проверять.

В порядке компенсации за невнимательность:

1) Вариант с хранением только подходящего:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const m=1000;
var
  a: array [0..m-1] of Integer;
  n, i, k, t: Integer;
begin
  Read(n);
  for n:=0 to n-1 do begin
    Read(t);
    if (t>=100) and (t<1000) and (t mod 14=0) then begin
      a[k]:=t; Inc(k);
    end;
  end;
  for n:=0 to k-1 do Write(' ',a[k]); WriteLn;
end.
2) В задании не сказано напечатать числа в порядке их ввода, поэтому можно:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const d=7*2; lt=100; rt=lt*10; mn=(((lt-1) div d+1)*d); mx=(rt-1) div d*d; m=(mx-mn) div d+1;
var
  a: array [0..m-1] of Integer;
  n, t: Integer;
begin
  Read(n);
  for n:=0 to n-1 do begin
    Read(t);
    if (t>=lt) and (t<rt) and (t mod d=0) then
      Inc(a[(t-mn) div d]);
  end;
  for n:=0 to m-1 do for t:=a[n]-1 downto 0 do Write(' ',mn+n*d);
end.
3) Строго говоря, в задании не сказано напечатать искомое после ввода всех чисел
Pascal
1
2
3
4
5
6
7
var n, t: Integer;
begin
  Read(n);
  for n:=1 to n do begin
    Read(t); if (t>=100) and (t<1000) and (t mod 14=0) then Write(' ',t);
  end;
end.
0
11.02.2020, 10:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.02.2020, 10:51
Помогаю со студенческими работами здесь

В диапазоне -500..500 найти все трехзначные числа, у которых чётные сотни
Даны натуральные числа от -500 до 500. Найти все трехзначные числа, у которых четные сотни.

Напечатайте все двухзначные числа, которые кратные 5 и не кратные 3
в паскаль. помогите пожалуйста 1) Напечатайте все двухзначные числа, которые кратные 5 и не...

Дан массив из указателей на целые числа, вывести все члены данного массива, кратные 3, кратные 5
Дан массив из указателей на целые числа вывести все члены данного массива кратные 3 , кратные 5...

Дан массив случайных чисел оазмерности n. Найти все трехзначные, кратные 7 элементы. Вычислить их сумму и количество
Дан массив случайных чисел оазмерности n. Найти все трехзначные, кратные 7 элементы. Вычислить их...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru