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

Фоксфорд олимпиада по информатикепервый файл на 1 мегабайт больше, чем второй файл. второй файл на 3072 байта больше, чем третий файл. на сколько килобайт третий файл меньше, чем первый? в ответе укажите только число, слово "килобайт" писать не надо.

👇
Ответ:
annayotubeanna
annayotubeanna
19.02.2020
10000-3072=6928
ответ:на 6928 килобайта трейтий файл меньше чем первый.
4,5(17 оценок)
Открыть все ответы
Ответ:
NoProblem75
NoProblem75
19.02.2020

 

  uses   crt;   var   a: array [1..20, 1..20] of real;   i, j, k, n, s: integer;   begin   clrscr;   write('Введите размер матрицы: ');   read(n);   for i := 1 to n do     for j := 1 to n do     begin       write('A[', i, ',', j, ']= ');       readln(a[i, j]);     end;   WRITELN;   WRITELN;   writeln('Исходная матрица ', n, 'x', n, ': ');   for i := 1 to n do   begin     for j := 1 to n do       WRITE(a[i, j]:2:0, ' ');     WRITELN;   end;   k := 0;   for i := 1 to n do   begin     for j := 1 to n do     begin       if a[i, j] = 0 then       begin         k := k + 1;         s := s + 1;       end;     end;     if k = n then writeln(i, ' строка состоит из нулей! ');     k := 0;   end;   if s = 0 then writeln('В матрице нет нулевых строк'); end.
4,8(64 оценок)
Ответ:
лёша2002z
лёша2002z
19.02.2020
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadAllLines('Pushkin.txt');
  Writeln('*** Текст в файле ***',NewLine);
  a.Println(NewLine);
  var n:=a.Select(s->s.ToWords.Count).Where(k->k>0).Min;
  a:=ReadLines('Pushkin.txt').Where(s->s.ToWords.Count=n).ToArray;
  WriteLines('Result.txt',a);
  Writeln(NewLine,'*** Новый файл ***',NewLine);
  ReadLines('Result.txt').Println(NewLine)
end.

Пример:

*** Текст в файле ***

Если жизнь тебя обманет,
Не печалься, не сердись!
В день уныния смирись:
День веселья, верь, настанет.

Сердце в будущем живет;
Настоящее уныло:
Всё мгновенно, всё пройдет;
Что пройдет, то будет мило.
   (А.С. Пушкин, 1825)

*** Новый файл ***

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