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

Вывести на экран выражение 3+7 как текст , если введённое с клавиатуры число меньше 10 и как число в ином случае . Решение на паскале

Показать ответ
Ответ:
071900000719
071900000719
02.12.2020 13:12
Var i,n,fs,ls: integer;
    fsz,indf,indl: int64;
    f: file of integer;
begin
  write('n = '); readln(n);
// запись в файл целых чисел  
  assign(f,'input.txt');
  rewrite(f);
  for i:=1 to n do write(f,random(-3000,8000));
  close(f);
// замена элементов в файле  
  assign(f,'input.txt');
  reset(f);
  fsz:=FileSize(f); 
  indf:=0;
  for i:=0 to fsz-1 do
  begin
    read(f,n);
    if ((n mod 2)<>0) and (indf=0) then
    begin
      indf:=i; fs:=n;
    end;  
    if (n mod 2)=0 then
    begin
      indl:=i; ls:=n;
    end;  
  end;
  reset(f);
  seek(f,indf);
  write(f,ls);
  reset(f);
  seek(f,indl);
  write(f,fs);
  close(f);
end.
0,0(0 оценок)
Ответ:
ALPELGOLD
ALPELGOLD
02.12.2020 13:12
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var fn:='MtFile.bin';
  var n:=ReadInteger;
  var f:file of integer;
  var s:=SeqRandom(n,-3000,8000); // последовательность не хранится
  Rewrite(f,fn);
  foreach var m in s do Write(f,m);
  f.Close; // файл создан и закрыт
  Reset(f,fn);
  var b:integer; // буфер
  while not Eof(f) do begin Read(f,b); Print(b) end; Writeln;
  Seek(f,0); // стали в начало файла
  Read(f,b);
  var iOdd:=0;
  while not Eof(f) and b.IsEven do
  begin Read(f,b); iOdd+=1 end;
  if Eof(f) and b.IsEven then
    begin Writeln('Нет нечетных компонентов'); exit end;
  var (bb,iEven):=(b,n);
  repeat
    iEven-=1; Seek(f,iEven); Read(f,b)
  until (iEven=1) or b.IsEven;
  if b.IsOdd then begin Writeln('Нет четных компонентов'); exit end;
  Seek(f,iEven); Write(f,bb);
  Seek(f,iOdd); Write(f,b);
  Seek(f,0);
  while not Eof(f) do begin Read(f,b); Print(b) end; Writeln;
  f.Close
end.

Пример
10
3166 6355 3596 6926 1266 6143 7401 7624 1402 -627
3166 1402 3596 6926 1266 6143 7401 7624 6355 -627
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота