Поиск результатов по фразе "a 5. автомат получает на вход четырёхзначное восьмеричное число. по этому числу строится новое число по следующим правилам. 1. складываются первая и вторая, а также третья и четвёртая цифры. 2. полученные два числа в восьмеричной системе счисления записываются друг за другом в порядке возрастания (без разделителей). пример. исходное число: 4531. суммы: 4+5 = 9; 3+1 = 4. результат: 411. определите, какое из следующих чисел может быть результатом работы автомата. 1) 117 2) 1213 3) 1511 4) 1517 . необходим ход решение , подробный

👇

Ответ:

ученик1880

04.01.2020

Вариант№3 не подходит, т.к. в условии сказано, что числа записываются друг за другом в порядке возрастания.
т.к. число восьмеричное (число состоит из цифр 0,1,2,3,4,5,6,7) сумма цифр может быть максимум 7+7=14, т.е. варианты№1, 3 , 4 не подходят.
ответ №2

4,4(20 оценок)

Открыть все ответы

Ответ:

Olechka77

04.01.2020

1. Программа для создания файла

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
tBook=record
    author:string[30];
    naim:string[50];
    pages:integer;
    godizd:integer
    end;
begin
var f:file of tBook;
Rewrite(f,'books.dat');
Writeln('Ввод данных по книгам');
var s1,s2:string;
var i1,i2:integer;
var book:tBook;
repeat
    s1:=ReadlnString('Автор или * для окончания ввода:');
    if s1<>'*' then begin
      s2:=ReadlnString('Название книги:');
      i1:=ReadlnInteger('Количество страниц:');
      i2:=ReadlnInteger('Год издания:');
      (book.author,book.naim,book.pages,book.godizd):=(s1,s2,i1,i2);
      Write(f,book)
      end
until s1='*';
Writeln('*** Ввод завершен ***');
f.Close
end.

Тестовое решение
Ввод данных по книгам
Автор или * для окончания ввода: Жюль Верн
Название книги: 80 тысяч километров под водой
Количество страниц: 573
Год издания: 1951
Автор или * для окончания ввода: Сергей Лукьяненко
Название книги: Дозор
Количество страниц: 934
Год издания: 2004
Автор или * для окончания ввода: Жюль Верн
Название книги: Властелин мира
Количество страниц: 104
Год издания: 2011
Автор или * для окончания ввода: *
*** Ввод завершен ***

2. Программа для выборки

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
tBook=record
    author:string[30];
    naim:string[50];
    pages:integer;
    godizd:integer
    end;
begin
var f:file of tBook;
Reset(f,'books.dat');
var s:=ReadlnString('Автор книги:');
var y:=Readinteger('Год издания, не ранее:');
var k:=0;
var book:tBook;
while not f.Eof do begin
    Read(f,book);
    if (book.author=s) and (book.godizd>=y) then begin
      Writeln(book);
      Inc(k)
      end;
end;
if k=0 then Writeln('Таких книг не найдено');
f.Close
end.

Тестовое решение
Автор книги: Жюль Верн
Год издания, не ранее: 2005
(Жюль Верн,Властелин мира,104,2011)

4,7(65 оценок)

Ответ:

gspd000

04.01.2020

Попробуй Program PascalGuru; var s:string; f,t:text;
function preobr(s:string):string;var i,j,p,n,sered:integer; gl,zp,slovo:string; m:array [1..80] of string;beginzp:='!?*,.'; gl:='аоуыэяеёюи'; p:=pos(' ',s); i:=0; repeat inc(i); slovo:=copy(s,1,p-1); m[i]:=slovo; delete(s,1,p); p:=pos(' ',s); until p=0; n:=i+1; m[n]:=s; for i:=1 to n do begin s:=m[i]; if pos(s[length(s)],zp)<>0 then p:=length(s)-1 else p:=length(s); sered:=(p div 2)+1; if (not odd(p)) or (p<3) then continue; if pos(s[1],gl)=0 then continue; if pos(s[sered],gl)=0 then continue; if pos(s[p],gl)=0 then continue; s[1]:=UpCase(s[1]); s[sered]:=UpCase(s[sered]); s[p]:=UpCase(s[p]); m[i]:=s+'('+s[1]+','+s[sered]+','+s[p]+')'; end; s:=''; for i:=1 to n do s:=s+m[i]+' '; preobr:=s;end;
beginassign(f,'input.txt'); reset(f);assign(t,'output.txt'); rewrite(t); while not eof(f) do begin readln(f,s); writeln(t, preobr(s) ); end; writeln('Файл успешно записан...'); close(f);close(t);readln;end.

4,6(90 оценок)

Это интересно:

Здоровье

12.11.2020

Молочница: Причины, проявления и лечение в домашних условиях...

Дом-и-сад

10.09.2020

Как установить в доме камеры наблюдения для системы безопасности...

Кулинария-и-гостеприимство

23.06.2020

Как заварить Кунг фу чай - лучший способ насладиться вкусом восточного чая...

Кулинария-и-гостеприимство