Определите значение переменных после выполнения фрагмента алгоритма:
1

2

a:=
b:=

m:=
n:=

👇

Увидеть ответ

Ответ:

lalaland5

24.12.2021

a = 1

b = 7

b = 1? нет

b = 7 - 2 = 5

a = 1 * 8 = 8

b = 1? нет

b = 5 - 2 = 3

a = 8 * 8 = 64

b = 1? нет

b = 3 - 2 = 1

a = 64 * 8 = 512

b = 1? да , выход

a = 512

b = 1

m = 53

n = 16

m = n ? нет

m > n ? да

n = 16

m = 53 - 16 = 37

m = n? нет

m > n? да

n = 16

m = 37 - 16 = 21

m = n? нет

m > n? да

n = 16

m = 21 - 16 = 5

m = n? нет

m > n? нет

n = 16 - 5 = 11

m = 5

m = n? нет

m > n? нет

n = 11 - 5 = 6

m = 5

m = n? нет

m > n? нет

n = 6 - 5 = 1

m = 5

m = n? нет

m > n? да

m = 5 - 1 = 4

n = 1

m = n? нет

m > n? да

m = 4 - 1 = 3

n = 1

m = n? нет

m > n? да

m = 3 - 1 = 2

n = 1

m = n? нет

m > n? да

m = 2 - 1 = 1

n = 1

m = n? да. Выход

m = 1

n = 1

4,5(38 оценок)

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

Ответ:

1064738193747

24.12.2021

ответ: 662.

обработка строки состоит из ряда повторяющихся циклов.

1. находим три двойки, заменяем на 6.

2. повторяем пункт 1 четыре раза.

3. заменяем четыре шестерки на 2.

итого, убрали 12 двоек, добавили одну двойку. следовательно, строка укоротилась на 11 символов.

подсчитаем количество циклов при длине строки 282. 282/11 = 25*11+7

следовательно, после 25 циклов останется строка из семи двоек.

три двойки заменяем на 6, следующие три двойки заменяем на 6, остается одна двойка. тогда в конце получится строка 662.

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

Ответ:

tanyaxxx15

24.12.2021

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var F,G:file of integer;
Assign(F,'FFile.dat'); Rewrite(F);
for var i:=1 to 30 do Write(F,Random(-20,20));
// Файл F создан и заполнен
Assign(G,'GFile.dat'); Rewrite(G);
F.Seek(0);
var e:integer;
Print('F:');
while not F.Eof do begin
    Read(F,e); Print(e);
    if e>0 then Write(G,e)
    end;
F.Seek(0);
while not F.Eof do begin
    Read(F,e);
    if e<0 then Write(G,e)
    end;
F.Seek(0);
while not F.Eof do begin
    Read(F,e);
    if e=0 then Write(G,e)
    end;
F.Close;
Writeln;
Print('G:');
G.Seek(0);
while not G.Eof do begin
    Read(G,e); Print(e)
    end;
G.Close
end.

Тестовое решение:
F: -14 15 -16 0 7 0 18 19 -12 -10 6 15 -19 -14 -15 -1 -6 -4 -20 12 10 4 3 16 -14 -20 3 10 -13 -16
G: 15 7 18 19 6 15 12 10 4 3 16 3 10 -14 -16 -12 -10 -19 -14 -15 -1 -6 -4 -20 -14 -20 -13 -16 0 0

Данное решение неоптимально по времени, поскольку файл читается трижды. Можно сделать иной вариант, читая данные за один проход и помещая в две вс структуры памяти отрицательные и нулевые элементы.

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var F,G:file of integer;
Assign(F,'FFile.dat'); Rewrite(F);
for var i:=1 to 30 do Write(F,Random(-20,20));
// Файл F создан и заполнен
Assign(G,'GFile.dat'); Rewrite(G);
var n:=F.FileSize;
var neg,zer:array of integer;
SetLength(neg,n); SetLength(zer,n);
F.Seek(0);
var e:integer;
var ineg:=0;
var izer:=0;
Print('F:');
while not F.Eof do begin
    Read(F,e); Print(e);
    if e>0 then Write(G,e)
    else
      if e<0 then begin neg[ineg]:=e; Inc(ineg) end
      else begin zer[izer]:=e; Inc(izer) end
    end;
F.Close;
Writeln;
SetLength(neg,ineg);
foreach e in neg do Write(G,e);
SetLength(zer,izer);
foreach e in zer do Write(G,e);
Print('G:');
G.Seek(0);
while not G.Eof do begin
    Read(G,e); Print(e)
    end;
G.Close
end.

Тестовое решение:
F: 7 5 -14 6 -11 -9 5 -1 5 -5 -7 -1 4 -20 17 -19 0 -3 0 6 20 1 -2 -18 9 20 0 -2 3 -13
G: 7 5 6 5 5 4 17 6 20 1 9 20 3 -14 -11 -9 -1 -5 -7 -1 -20 -19 -3 -2 -18 -2 -13 0 0 0

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

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

Хобби-и-рукоделие

14.09.2022

Как составить гранатомет своими руками: Подробная инструкция...

Образование-и-коммуникации

05.03.2022

Как эффективно учиться: советы для успешного обучения...

Компьютеры-и-электроника

02.02.2022

Как создать файл в формате PDF с помощью бесплатного приложения OpenOffice...

Дом-и-сад