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

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

24.04.2015, 20:36. Показов 1391. Ответов 1
Метки нет (Все метки)

14.1 Написать программу, заносящую в файл 14 символов, введенных с клавиатуры, а потом считывающую эти символы. Одинаковые с последним символы вывести на экран, а если таких нет, то выдать об этом сообщение.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2015, 20:36
Ответы с готовыми решениями:

Даны 3 числа. На экран вывести только отрицательные. Если таких нет, выдать сообщение об этом. (Блок-Схема)
Помогите пожалуйста. Даны 3 числа. На экран вывести только отрицательные. Если таких нет, выдать...

Вычыслить количество слов в строке, длинна которых равна 3 символам и вывести их на экран, если же таких слов нет, то выдать об этом сообщение.
Вычыслить количество слов в строке, длинна которых равна 3 символам и вывести их на экран, если же...

Вывести на экран все слова текста, в которых все буквы разные; если таких слов нет, выдать соответствующее сообщение
Дан текст из слов, разделенных пробелами. Вывести на экран все слова, в которых все буквы разные....

Указать порядковые номера символов, составляющих слово ‘Паскаль’, если таких символов нет – выдать сообщение об этом.
помогите пожалуйсьа написать программу на паскале Указать порядковые номера символов, составляющих...

1
Эксперт Pascal/Delphi
2383 / 1295 / 1491
Регистрация: 29.08.2014
Сообщений: 4,651
25.04.2015, 03:19 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.04.2015, 03:19
Помогаю со студенческими работами здесь

Найти и вывести на экран номера всех отрицательных элементов, если таких нет, то сообщить об этом.
2. Дан одномерный массив. Найти и вывести на экран номера всех отрицательных элементов, если таких...

Найти и вывести на экран номера всех отрицательных элементов, если таких нет, то сообщить об этом
Дан одномерный массив. Найти и вывести на экран номера всех отрицательных элементов, если таких...

Найти предложения,в которых символы расположены по алфавиту. Если таких предложений нет, т о вывести соответствующее сообщение
Найти предложения,в которых символы расположены по алфавиту. Если таких предложений нет, т о...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru