Решаем задачи Абрамян на Паскале. String14

String14. Дана строка. Подсчитать количество содержащихся в ней прописных латинских букв.

Решение:

program String14;
var
  i,Num:integer;
  S:string;

begin
 Write('S:');
 Readln (S);

 Num:=0;
 for i:=1 to Length(S) do
  if (ord(S[i]) in  [65..90,97..122]) then inc(Num);

 Writeln(Num);
end.

program String14;

var

i,Num:integer;

S:string;

begin

Write('S:');

Readln (S);

Num:=0;

for i:=1 to Length(S) do

if (ord(S[i]) in [65..90,97..122]) then inc(Num);

Writeln(Num);

end.

Другие задачи из раздела String можно посмотреть здесь.

Комментарии 1

Решение на Python:

def UpperLat(msg):
    input_string = input(msg)
    upper_lat_counter = 0
    for char_counter in range(0, len(input_string)):
        if 65 <= ord(input_string[char_counter]) <= 90:
            upper_lat_counter += 1
    return upper_lat_counter

number_of_upper_lat = UpperLat("Введите строку:")
print("Количество прописных латинских букв:",number_of_upper_lat)

def UpperLat(msg):

input_string = input(msg)

upper_lat_counter = 0

for char_counter in range(0, len(input_string)):

if 65 <= ord(input_string[char_counter]) <= 90:

upper_lat_counter += 1

return upper_lat_counter

number_of_upper_lat = UpperLat("Введите строку:")

print("Количество прописных латинских букв:",number_of_upper_lat)

Ответить

Решаем задачи Абрамян на Паскале. String14

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ