Задача с натуральными числами

@Maxim778 · Регистрация: 30.05.2017

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

Здравствуйте помогите пожалуйста выполнить эту задачу
Заполнить файл случайными натуральными числами. Выполнить след. задания
1)найти кол-во чисел являющимися квадратами нечетных чисел
2) найти наибольшее из чисел кратных 7
3)переписать в новый файл суммы пар соседних чисел
4)вывести на экран разность первого и последнего числа

@Zwelenewskiy · 30.05.2017, 20:18

Только не пойму, почему не находит разность

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
var
  f, f1: text;
  a: set of integer;
  r: array of integer;
 
begin
  assign(f, 'output1.txt');
  rewrite(f);
  assign(f1, 'output2.txt');
  rewrite(f1);   
  
  var n := Readlninteger('Кол-во чисел: ');
  
  SetLength(r, n);
  
  for var i := 1 to n do
    if i mod 2 <> 0
      then a += [i * i];
  
  var k := 0;
  var max := 0;  
  var t := 0;
  for var i := 1 to n do
  begin
    var b := random(1000) + 1;
    if i <= n - 1
      then r[t] := b; 
    inc(t);
    writeln(f, b);
    if b in a
      then inc(k);
    if (b mod 7 = 0) and (b > max)
      then max := b;    
  end;
  
  var s := 0;
  for var i := 0 to n - 2 do
    s += r[i] + r[i + 1];    
  
  writeln(f1, s);  
  
  writeln('I: ', k);  
  writeln('II: ', max); 
  writeln('IV: ', r[0] - r[n - 1]); 
  
  close(f);
  close(f1);   
  
  
end.

@Hitoku · 30.05.2017, 21:18

Ещё как вариант

Pascal
1
2
3
4
5
6
7
begin
  var a := ArrRandom(ReadlnInteger('Количество чисел:'), 0, 100).Println;
  WriteAllText('E:\f1.txt', a.JoinIntoString);
  writelnformat('1) {0}{3}2) {1}{3}4) {2}', a.Where(v -> (frac(sqrt(v)) = 0) and (odd(trunc(sqrt(v))))).Count,
    a.Where(v -> v mod 7 = 0).Max, a.First - a.Last, NewLine);
  WriteAllText('E:\f2.txt', a.Pairwise.Select(v -> v[0] + v[1]).JoinIntoString);
end.

@Zwelenewskiy · 30.05.2017, 21:23

Hitoku, я не пойму,почему у меня не считается разность. Результат - только 1-й элемент

@Hitoku · 30.05.2017, 21:26

Zwelenewskiy, ничего удивительного

Кол-во чисел: 10
689 182 184 202 530 819 332 625 673 0
I: 0
II: 819
IV: 689

@volvo · 30.05.2017, 21:28

Hitoku, a.Incremental((a, b) -> a + b) найдет последовательность сумм за один шаг, без необходимости потом использовать Select

@Zwelenewskiy · 30.05.2017, 21:37

Глупая ошибка...

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
var
  f, f1: text;
  a: set of integer;
  r: array of integer;
 
begin
  assign(f, 'output1.txt');
  rewrite(f);
  assign(f1, 'output2.txt');
  rewrite(f1);   
  
  var n := Readlninteger('Кол-во чисел: ');
  
  SetLength(r, n);
  
  for var i := 1 to n do
    if i mod 2 <> 0
      then a += [i * i];
  
  var k := 0;
  var max := 0;  
  var t := 0;
  for var i := 1 to n do
  begin
    var b := random(1000) + 1;    
    r[t] := b;
    inc(t);      
    writeln(f, b);
    if b in a
      then inc(k);
    if (b mod 7 = 0) and (b > max)
      then max := b;    
  end;
  
  var s := 0;
  for var i := 0 to n - 2 do
    s += r[i] + r[i + 1];    
  
  writeln(f1, s);  
  
  if k <> 0
    then writeln('I: ', k)
  else writeln('I: ', 'числа отсутствуют');
  if max <> 0
    then writeln('II: ', max)
  else writeln('II: ', 'число отсутствует');
  writeln('IV: ', r[0] - r[n - 1]);   
  
  close(f);
  close(f1);   
  
  
end.

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@Maxim778 0 / 0 / 0 Регистрация: 30.05.2017 Сообщений: 3

	Задача с натуральными числами 30.05.2017, 16:30. Показов 676. Ответов 6 Метки нет (Все метки) Здравствуйте помогите пожалуйста выполнить эту задачу Заполнить файл случайными натуральными числами. Выполнить след. задания 1)найти кол-во чисел являющимися квадратами нечетных чисел 2) найти наибольшее из чисел кратных 7 3)переписать в новый файл суммы пар соседних чисел 4)вывести на экран разность первого и последнего числа 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	30.05.2017, 21:23
	Hitoku, я не пойму,почему у меня не считается разность. Результат - только 1-й элемент 0

@volvo Супер-модератор 33400 / 21510 / 8236 Регистрация: 22.10.2011 Сообщений: 36,910 Записей в блоге: 12
	30.05.2017, 21:28
	Hitoku, `a.Incremental((a, b) -> a + b)` найдет последовательность сумм за один шаг, без необходимости потом использовать Select 1