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

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

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

@Joy · 25.04.2015, 03:19

Pascal

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.

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

Опции темы

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

Решение