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

На ресунке 3.19 показана схема движения робота. Найдите ошибку в программе (рис. 3.20).

Показать ответ
Ответ:
ghhhhd
ghhhhd
24.04.2023 05:26
Var s,st: string;
    a: array[1..255] of integer;
    i: integer;    
begin
  write('строка: ');  readln(s);
  for i:=1 to 255 do a[i]:=0;
  for i:=1 to length(s) do inc(a[ord(s[i])]);
  st:='';
  for i:=1 to length(s) do
    if ((a[ord(s[i])]>=2) and
       (s[i] in ['а'..'я']))  then continue
    else st:=st+s[i];
  writeln('новая строка: ',st);
end.

строка: Это строка для проверки.
новая строка: Э са для пвеи.

Если нужно, чтобы не различались прописные и строчные буквы, то другой вариант программы:

var s: string;
    a: array[1..255] of integer;
    i,j: integer;    
begin
  write('строка: ');  readln(s);
  for i:=1 to 255 do a[i]:=0;
  for i:=1 to length(s) do
  if ord(s[i])>32 then
  begin
    inc(a[ord(s[i])]);
    if s[i] in ['а'..'я'] then inc(a[ord(UpperCase(s[i]))])
    else if s[i] in ['А'..'Я'] then inc(a[ord(LowerCase(s[i]))]);
  end;  
  j:=0;
  for i:=1 to length(s) do
  if (a[ord(s[i])]>=2) then continue
  else 
  begin
    inc(j);
    s[j]:=s[i];
  end;  
  delete(s,j+1,length(s)-j);
  writeln('новая строка: ',s);
end.
0,0(0 оценок)
Ответ:
Девчуля08
Девчуля08
02.02.2021 13:05

1) Множество компьютеров, связанных каналами передачи информации и находящихся в пределах одного помещения, здания, называется:

Г) локальной компьютерной сетью;

2) Глобальная компьютерная сеть - это:

Б) совокупность локальных сетей и компьютеров, расположенных на больших расстояниях и соединенных с каналов связи в единую систему;

3) Наибольшие возможности для доступа к информационным ресурсам обеспечивает подключения к Интернету;

В) постоянное соединение по оптоволоконному каналу;

4) Сетевой протокол - это;

А) набор соглашений о взаимодействиях в компьютерной сети;

6) Моделирование - это:

А) процесс замены реального объекта (процесса, явления) моделью, отражающей его существенные признаки с точки зрения достижения конкретной цели;

7) Модель - это:

В) материальный или абстрактный заменитель объекта, отражающий его пространственно-временные характеристики;

8) Натурное моделирование - это;

В) моделирование, при котором в модели узнается какой - либо отдельный признак объекта-оригинала;

9) Математическая модель объекта - это:

А) совокупность записанных на языке математики формул, отражающих те или иные свойства объекта-оригинала или его поведение;

10) Рисунки, карты, чертежи, диаграммы, схемы, графики представляют собой:

Г) графические информационные модели;

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