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

решить эти уравнения по такому же принципу, как в документе решить эти уравнения по такому же принципу, как в документе решить эти уравнения по такому же принципу, как в документе ">

Показать ответ
Ответ:
queenames
queenames
26.09.2022 17:13
#include <stdio.h>

int main()
{
    int N;
    char c;
    printf("Исходное направление робота (n,w,s,e): ");
    scanf("%c",&c);
    printf("Команда (0,1,-1,2,-2): ");
    scanf("%d",&N);
    while (N != 0){
    switch (N) {
    case 1 : break;
    case -1:
    switch (c) {
    case 'n' : c = 's'; break;
    case 'w' : c = 'e'; break;
    case 's' : c = 'n'; break;
    case 'e' : c = 'w'; break;
    };
    break;
    case 2 :
       switch (c) {
    case 'n' : c = 'e'; break;
    case 'w' : c = 'n'; break;
    case 's' : c = 'w'; break;
    case 'e' : c = 's'; break;
    };
    break;
    case -2:
       switch (c) {
    case 'n' : c = 'w'; break;
    case 'w' : c = 's'; break;
    case 's' : c = 'e'; break;
    case 'e' : c = 'n'; break;
    };
    break;
    }
    printf("c = %c\n", c);
    printf("Команда (0,1,-1,2,-2): ");
    scanf("%d",&N);
    }
    return 0;
}

Пример:
Исходное направление робота (n,w,s,e): n
Команда (0,1,-1,2,-2): 2
c = e
Команда (0,1,-1,2,-2): 1
c = e
Команда (0,1,-1,2,-2): -2
c = n
Команда (0,1,-1,2,-2): -1
c = s
Команда (0,1,-1,2,-2): 0
0,0(0 оценок)
Ответ:
sofiahayda
sofiahayda
27.01.2020 07:49
Var 
s,s1,s2,st1,st2:string; i:integer; 
mn:set of char; b:boolean;
begin
writeln('Введите текст:');
readln(s);
s:=s+' ';
st1:=''; st2:='';
s1:=''; s2:=''; mn:=[]; b:=false;
while pos('  ',s)>0 do delete(s,pos('  ',s),1);
for i:=1 to length(s) do
 if s[i]<>' '
  then begin 
       s1:=s[i]+s1;
       s2:=s2+s[i];
       if s[i] in mn then b:=true;
       mn:=mn+[s[i]];
       end
  else begin
       if s1=s2 then st1:=st1+s1+' ';
       if not b then st2:=st2+s2+' ';
       s1:=''; s2:=''; mn:=[]; b:=false;
       end;
if st1<>''
 then writeln('Слова-перевёртыши: ',st1)
 else writeln('Слов-перевёртышей нет');
if st2<>''
 then writeln('Слова без повторяющихся букв: ',st2)
 else writeln('Слов без повторяющихся букв нет');
end.

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