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

необходимо расставить действия так, чтобы робот посадил на все грядки цветы и пришел на точку P. Пункт "посади" можно взять только один раз.​


необходимо расставить действия так, чтобы робот посадил на все грядки цветы и пришел на точку P. Пун

Показать ответ
Ответ:
ирина1853
ирина1853
12.06.2020 09:02

var slova, bukvy, slovo : string;

   i, b, k, c, j, l, kolvo, dlina1, dlina2 : integer;

   a : array[1..50] of string;

begin

 Writeln('Введите слова');

 Readln(slova);

 Writeln('Введите буквы');

 Readln(bukvy);

 dlina1 := length(slova);

 dlina2 := length(bukvy);

 k := 1;

 for i := 1 to dlina1 do

   if slova[i] = ' ' then

     k := k + 1;

 writeln(k);

b := 1;

i := 1;

while i <= length(slova) do

begin

 if (slova[i] <> ' ') and (i <> length(slova)) then

   slovo := slovo + slova[i]

 else

 begin

   a[b] := slovo;

   slovo := '';

   b := b + 1;

 end;

i := i + 1;

end;

a[k] := a[k] + slova[length(slova)];

b := 0;

l := 0;

for i := 1 to 50 do

 if a[i] <> '' then

   begin

   slovo := a[i];

   for k := 1 to length(slovo) do

     for c := 1 to length(bukvy) do

       if slovo[k] = bukvy[c] then

         j := j + 1;

   if j = length(slovo) then

   begin

     writeln(slovo);

     l := l + 1;

     j := 0;

   end;

   end;

if l = 0 then

 writeln('NO');

end.

Объяснение:

0,0(0 оценок)
Ответ:
anastas25a
anastas25a
09.07.2022 02:20

495

Объяснение:

8-чная система имеет таки цифры как 0, 1, 2, 3, 4, 5, 6, 7

всего у нас есть 8 цифр из которых мы можем составить уравнение

на первом месте может стоять только четная, всего четных у нас 4 цифры (0, 2, 4, 6)

цифры должны стоять в убывании либо не меняться

начнем с 6, она одна

вторая у нас любая цифра меньше 7, их 7 (0, 1, 2, 3, 4, 5, 6)

третьей может быть так же 7 цифр

и так же с четвертой

то есть 1 * 7 * 7 * 7 = 343

если начнем с 4, то

1 * 5 * 5 * 5 = 125

если с 2, то

1 * 3 * 3 * 3 = 27

теперь сложим все числа и получим 495

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