lera5053

29.01.2021 21:43

Информатика

Есть ответ 👍

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

167

495

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

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

artemovfoxy1987

Информатика

4,4(12 оценок)

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.

katirina19

Информатика

4,5(64 оценок)

Using system; namespace application1{ class program { static bool endswith4(int value) { return value % 10 == 4; } static void main(string[] args) { int value; string s; do { console.write("число: "); s = console.readline(); } while (! int32.tryparse(s, out value)); console.writeline(endswith4(value) ? "оканчивается на 4" : "не оканчивается на 4"); } }}

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.