1)составить программу. определяющуя является ли веденное слово перевертышем. входные данные: ввести строку s с длинной не более 255 символов. выходные данные: вывести количество содержащихся в ней прописных латинских букв. 2)дана строка, состоящая из слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). найти количество слов, которые начинаются и заканчиваются одной и той же буквой.

254

483

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

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

UlanM

Информатика

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

var

s : string;

i : integer;

f : boolean;

begin

readln (s);

writeln ('тут ', length (s), ' символов');

f : = true;

for i : = 1 to length (s) div 2 do

if s[i] < > s[length (s) - i + 1] then f : = false;

writeln ('это слово является перевертышем: ', f); //true/false

end.

var

s : string;

i, k, count : integer;

c : char;

begin

readln (s);

count : = 0;

for i : = 1 to length (s) do

if s[i] < > ' ' then

begin

c : = s[i];

k : = i + 1;

break;

end;

for i : = k to length (s) do

if (s[i] = ' ') and (c < > ' ') then

begin

if s[i - 1] = c then inc (count);

c : = ' ';

end

else if c = ' ' then c : = s[i];

if (c < > ' ' ) and (s[length (s)] < > ' ') and (c = s[length (s)]) then inc (count);

writeln (count);

end.

Супер1009

Информатика

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

// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin write('исходный массив: '); var a: =arrrandom(10,-2,2).println(); writeln('k=',a.where(x-> x> 0).; end.