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

1. дано предложение. подсчитать число пробелов стоящих на нечетных местах, и заменить такие пробелы на символ «*». 2. дано слово, состоящее из количества букв кратного четырем. поменять в нем буквы следующим образом: первую с четвертой, вторую с третьей, пятую с восьмой, шестую с седьмой и т.д. например, из слова «карандаш» должны получить «аракшадн». язык pascal abc

Показать ответ
Ответ:
Isabekov1
Isabekov1
04.10.2020 22:24
{ Дано предложение. Подсчитать число пробелов,
стоящих на нечетных местах, и заменить такие пробелы
на символ «*» }

var t,s: string; n,k,i: integer;
begin
  writeln ('Введите предложение:');
  readln (t);
  n:=length(t); 
  s:='*'; 
  k:=0;
  for i:=1 to n do begin;  
      if (t[i]=' ') and (i mod 2 =1)
        then begin
          k:=k+1;
          delete(t,i,1);
          insert(s,t,i);
        end        
  end;
  writeln (t);
  writeln ('Нечетных пробелов: ',k)
end.
результат
Жил да*был*черный кот за*углом.
Нечетных пробелов: 3


{ Дано слово, состоящее из количества букв кратного четырем.
поменять в нем буквы следующим образом: первую с четвертой, 
вторую с третьей, пятую с восьмой, шестую с седьмой и т.д. 
например, из слова «карандаш» должны получить «аракшадн». }

const k=4;
var 
  a,a1,a2: string;
  n,i: integer;
begin
  writeln ('Введите слово:');
  readln (a);
  n:=length(a) div k;
  for i:=1 to n do begin      
      a1:=LeftStr(a,k);
      delete(a,1,k);
      a1:=ReverseString(a1);
      a2:=a2+a1;        
  end;  
  writeln (a2); 
end.
результат
карандашкарандаш
аракшаднаракшадн
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота