Одинаковые с последним символы вывести на экран, а если таких нет, то выдать об этом сообщение

@ALEX1327 · Регистрация: 13.04.2015

Студворк — интернет-сервис помощи студентам

14.1 Написать программу, заносящую в файл 14 символов, введенных с клавиатуры, а потом считывающую эти символы. Одинаковые с последним символы вывести на экран, а если таких нет, то выдать об этом сообщение.

@Joy · 25.04.2015, 03:19

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses system.IO,system.linq;
var
  s:string;
  c:char;
begin
  write('введите 14 символов:');
  s:='';
  for i:integer:=1 to 14 do begin
    read(c);
    s:=s+c;
  end;
  &file.writealltext('text.txt',s);
  s:=&file.readalltext('text.txt');
  writeln('содержимое файла:',s);
  if pos(s[length(s)],s)=length(s) then writeln('нет символов, совпадающих с последним') else
  writeln('символы, совпадающие с последним:',
  enumerable.range(1,length(s)-1).select((i:integer)->s[i]).Where(c->c=s[length(s)]));
end.

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@ALEX1327 0 / 0 / 0 Регистрация: 13.04.2015 Сообщений: 34

	Одинаковые с последним символы вывести на экран, а если таких нет, то выдать об этом сообщение 24.04.2015, 20:36. Показов 1647. Ответов 1 Метки нет (Все метки) 14.1 Написать программу, заносящую в файл 14 символов, введенных с клавиатуры, а потом считывающую эти символы. Одинаковые с последним символы вывести на экран, а если таких нет, то выдать об этом сообщение. 0

Одинаковые с последним символы вывести на экран, а если таких нет, то выдать об этом сообщение

Решение