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

решить на python Исполнитель Редактор получает на вход строку цифр и преобразовывает её. Ре-дактор может выполнять две команды, в обеих командах v и w обозначают цепочки цифр.

заменить (v, w)

нашлось (v)

Дана программа для исполнителя Редактор:

НАЧАЛО

ПОКА нашлось (555) ИЛИ нашлось (888)

ЕСЛИ нашлось (555)

ТО заменить (555, 8)

КОНЕЦ ЕСЛИ

ПОКА нашлось (888)

заменить (888, 5)

КОНЕЦ ПОКА

ЕСЛИ нашлось (555)

ТО заменить (555, 8)

КОНЕЦ ЕСЛИ

КОНЕЦ ПОКА

КОНЕЦ

Дана строка, состоящая из 21 цифры, причем первые 18 цифр – восьмерки, а остальные – пятерки. Какая строка получится в результате применения программы к данной строке?

👇
Ответ:
камил486
камил486
01.09.2020

Python вовсе и не нужен. Нужен только черновик

Для себя я расставил табуляции:

НАЧАЛО

   ПОКА нашлось (555) ИЛИ нашлось (888)

       ЕСЛИ нашлось (555)

           ТО заменить (555, 8)

       КОНЕЦ ЕСЛИ

       ПОКА нашлось (888)

           заменить (888, 5)

       КОНЕЦ ПОКА

       ЕСЛИ нашлось (555)

           ТО заменить (555, 8)

       КОНЕЦ ЕСЛИ

   КОНЕЦ ПОКА

КОНЕЦ

Нам даётся число:

888888888888888888555

Нашлось 555, поэтому заменяем 555 на 8:

8888888888888888888

Все 888 заменяем на 5:

5555558

Заменяем 555 на 8:

85558

Начинаем общий цикл заново:

Нашлось 555, поэтому заменяем 555 на 8:

888

Все 888 меняем на 5:

5

ответ: 5

4,6(21 оценок)
Открыть все ответы
Ответ:
Vlipli779
Vlipli779
01.09.2020
Var f:file of integer;   
 a,i,k,n:integer;
begin
randomize;
assign(f,'file');
rewrite(f);
repeat
write('Четное количество элементов: ');
readln(n);
until(n>1) and (n mod 2=0);
for i:=1 to n do
 begin 
 a:=random(100); 
 write(f,a); 
end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin 
 read(f,a); 
write(a,' ');
 end;
close(f);
writeln;
reset(f);
seek(f,filesize(f)div 2);
truncate(f);
writeln('Содержание измененного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a); 
 write(a,' '); 
end;
close(f);
readln
end.
4,6(28 оценок)
Ответ:
Ник1233211
Ник1233211
01.09.2020
Начнем с формул.
Площадь треугольника: S = 1/2*a*b*sin C
Отсюда: sin C = 2*S/(a*b); cos C = sqrt(1 - sin^2 C)
tg C = sin C / cos C; C = atan(tg C)
Теорема косинусов: c = sqrt(a^2 + b^2 - 2*a*b*cos C)
Площадь: S = c*h/2; отсюда h = 2*S/c
Теорема синусов: a/sin A = b/sin B = c/sin C
Отсюда: sin A = a/c*sin C; sin B = b/c*sin C
cos A = sqrt(1 - sin^2 A); cos B = sqrt(1 - sin^2 B)
tg A = sin A/cos A; A = atan(tg A);
tg B = sin B/cos B; B = atan(tg B)
Периметр: P = a + b + c
Теперь записываем в Паскале
singam := 2*S/(a*b); cosgam = sqrt(1 - singam*singam);
tangam := singam/cosgam; Gamma := atan(tangam);
c := sqrt(a*a + b*b - 2*a*b*cosgam); h := 2*S/c;
P := a + b + c;
sinalp = a/c*singam; cosalp = sqrt(1 - sinalp*sinalp);
tanalp := sinalp/cosalp; Alpha := atan(tanalp);
sinbet = b/c*singam; cosbet = sqrt(1 - sinbet*sinbet);
tanbet := sinbet/cosbet; Beta := atan(tanbet);
4,7(98 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ