М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
nikita425
nikita425
31.12.2021 17:58 •  Информатика

Заполнить файл f целыми числами, полученными с генератора случайных чисел. из файла f получить файл g, исключив повторные вхождения чисел. порядок следования чисел сохранить. решение на паскале, написать программу

👇
Ответ:
Ficksik12345
Ficksik12345
31.12.2021
Uses
  System.Collections.Generic;

var
  a: array of string;
  b: List<integer> := new List<integer>();
  f, g: string;

begin
  readln(f, g);
  System.IO.File.WriteAllText(f, '');
  System.IO.File.WriteAllText(g, '');
  for k: byte := 1 to 10 do
    System.IO.File.AppendAllText(f, IntToStr(Random(25)) + System.Environment.NewLine);
  a := System.IO.File.ReadAllLines(f);
  foreach k: string in a do
    b.Add(StrToInt(k));
  var i: integer;
  while (i < b.Count - 1) do
  begin
    while (b.IndexOf(b[i]) <> b.LastIndexOf(b[i])) do
      b.RemoveAt(b.LastIndexOf(b[i]));
    inc(i);
  end;
  foreach k: integer in b do
    System.IO.File.AppendAllText(g, IntToStr(k) + System.Environment.NewLine);
end.
4,4(67 оценок)
Открыть все ответы
Ответ:
рикки8
рикки8
31.12.2021
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var a:array[1..20] of integer;
  Randomize;
  for var i:=1 to 20 do a[i]:=Random(-50,50); a.Println;
  var b:=Range(2,20,2).Select(i->a[i]);
  Writeln('Элементы с четными индексами по возрастанию');
  b.Sorted.Println;
  Writeln('Элементы с четными индексами по убыванию');
  b.SortedDescending.Println;
end.

Тестовое решение:
-15 46 -34 -3 43 16 -17 -28 -19 12 -28 -11 48 -12 -1 33 -37 9 6 -40
Элементы с четными индексами по возрастанию
-40 -28 -12 -11 -3 9 12 16 33 46
Элементы с четными индексами по убыванию
46 33 16 12 9 -3 -11 -12 -28 -40
4,7(44 оценок)
Ответ:
20MIR01
20MIR01
31.12.2021

10000x4000x500x30x4

Цифры числа расположены в определенных позициях, которые соответствуют (справа налево) единицам, десяткам, сотням, тысячам и так далее. Определите название позиции и ее значение для каждой цифры (справа налево).

Пример: так как в данном числе четыре цифры, то вам нужно определить названия четырех позиций (справа налево).

7 соответствует единицам (значение = 1).

2 соответствует десяткам (значение = 10).

8 соответствует сотням (значение = 100).

5 соответствует тысячам (значение = 1000).

4,6(64 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ