В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
rootme
rootme
09.11.2021 04:36 •  Информатика

1)Чему равен шаг счетчика цикла в программе: *
2)Определите результат выполнения программы: *​


1)Чему равен шаг счетчика цикла в программе: *2)Определите результат выполнения программы: *​

Показать ответ
Ответ:
9Kira9
9Kira9
26.10.2020 03:51
//PascalABC.NET 3.2 сборка 1318

const
  n=4;

Var
  f:file of char;
  i,j,counter,FileLen:integer;
  s:string;
  val:char;
  ar:array[1..n] of integer;
  coms:array[1..n] of integer;
  begin
for i:=1 to n do
coms[i]:=i;
assign(f,'input.csv');
reset(f);i:=1;     //столбец матрицы
counter:=1;     //количество прочитанных элементов
FileLen:=filesize(f); //количество элементов в файле (включая разделители)
read(f,val); //на случай, если первая строка пуста
repeat 
 while (ord(val)<>10) and (ord(val)<>13) do //каждая строка заканчивается символами 10 и 13, а элементы разделяются ;   
begin
    if (val<>';') and (ord(val)<>10) and (ord(val)<>13) then
      begin
        ar[i]+=strtoint(val); //вводим значение из ячейки в переменную суммы         read(f,val); //cчитываем следующее значение
        inc(counter); //увеличиваем количество прочитанных
      end
      else
        begin
          read(f,val);    //пропускаем разделитель
          inc(counter);
        end;
    end;
   if (ord(val)=10) and (counter<FileLen) then  //в конце каждой строки стоят символы с кодами 10 и 13, пропускаем их
    begin
      read(f,val);
      inc(counter);
    end;
   if (ord(val)=13) and (counter<FileLen) then //когда дошли до конца строки
    begin
      inc(i);
       read(f,val);  //читаем с новой строки
      inc(counter);
    end;
until(counter=FileLen); //читаем пока количество элементов в файле не сравняется с количеством прочитанных
close(f);
for i:=1 to n-1 do    //когда лень писать быструю сортировку
  for j:=i+1 to n do
    if ar[i]<ar[j] then
      begin
        counter:=ar[i];
        ar[i]:=ar[j];
        ar[j]:=counter;
        counter:=coms[i];
        coms[i]:=coms[j];
        coms[j]:=counter;
      end;
for i:=1 to n do
writeln(i,'st place-',coms[i],' command -',ar[i],' points');
end.
0,0(0 оценок)
Ответ:
bondarsvetlana25
bondarsvetlana25
17.03.2021 00:05
Модем- это мобильная точка доступа. к нему можно подключиться другим устройствам, как к Wi-Fi. его можно использовать как Wi-Fi если на телефоне , у которого включен модем включены мобильные данные, то у этого устройства со счета будут уходить деньги. на модем можно поставить пароль, если вы не хотите, что бы к нему кто то подключался. можно играть различные игры (если у игры есть такая функция), если другие игроки к нему подключатся. как его подключать я не могу объяснить. зажми кнопку моб.точ.доступа и надеюсь дальше сам(а) разберешься (^_^)

я объяснила это из жизни ! не из учебника информатики .
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота