Регистрация
beysekeevadaniy
17.05.2020 13:30
Информатика
Есть ответ 👍

Составить программу на pascal.
№1
даны 2 строки. необходимо вывести слово yes, если строки , и слово no в противном случае. (не использовать функцию compare).
№2
дан текст, состоящий из 1 слова. определить является ли оно палиндромом.
№3
дана строка. вывести те буквы, которые встречаются в строке ровно 2 раза.

225
347
Посмотреть ответы 2

Ответы на вопрос:

Kaaaaktuuuus
Kaaaaktuuuus
4,4(92 оценок)

nomer3

program ab;

uses crt

uses sysutils;

var s,s1: string;

i,j: integer;

begin

clrscr;

write('введите строку слово');

writeln;

readln(s);

for i: =1 to length(s) do

for j: =1 to length(s) do

if (s[i]=s[j]) and(i< > j)

then

if pos(s[i], s1)=0

then s1: =s1+s[i]+' ';

write('повторяющиеся символы: ', s1);

readln;

end.

nomer2

program as

uses crt;

var s,sp: string;

i: integer;

begin

clrscr;

write('s=');

readln(s);

sp: ='';

for i: =1 to length(s) do

sp: =s[i]+sp;

if sp=s then writeln ('палиндром')

else writeln ('не палиндром');

readkey

end.

nomer1

function compare(s1,s2: string): boolean;

begin

result: =s1=s2;

end;

var s1,s2: string;

begin

readln(s1);

readln(s2);

if compare(s1,s2) then write('yes')

else write('no')

end.

Vladochka14
Vladochka14
4,4(82 оценок)

ОбъяснеКомпактность и портативность. В одном устройстве могут храниться сотни и тысячи книг.

Настройки изображения. По желанию пользователя можно изменять начертание и размер шрифта, и формат вывода (в одну колонку или в две, портрет или ландшафт).

Дополнительные возможности. В электронных книгах может быть реализован поиск по тексту, переходы по гиперссылкам, отображение временных выделений и примечаний, электронные закладки, словарь. Встроенные программы — синтезаторы речи позволяют озвучивать тексты. Электронная книга позволяет не только читать тексты, но и отображать анимированные картинки, мультимедийные клипы или проигрывать аудиокниги.

Стоимость текста. Многие тексты в электронном виде бесплатны или дешевле, чем в бумажном.

Доступность. При наличии подключения к Интернету тексты в любое время доступны для бесплатного скачивания с соответствующих сайтов (электронных библиотек публикации. Текст проще и дешевле опубликовать в электронном виде, чем в бумажном.

Экологичность. Для чтения текстов в электронной книге не нужна бумага, для производства которой вырубаются леса.

Популярно: Информатика