Питон В текстовом файле для каждой отдельной строки определить количество в ней символов.
Пример:
Hello!
Привет
One, two, three
Результат:
6 symbols.
6 symbols.
16 symbols

👇

Увидеть ответ

Ответ:

16Евгения16

11.01.2023

Вариант №1:

text = input("Введите какойто текст: ")

if len(text) == 1:

print("В тексте", '"' + text + '"', len(text), "символ")

elif len(text) == 2 or len(text) == 3 or len(text) == 4:

print("В тексте", '"' + text + '"', len(text), "символа")

else:

print("В тексте", '"' + text + '"', len(text), "символов")

Вариант №2:

text1 = input("")

text2 = input("")

text3 = input("")

print('')

print("Строка №1 " + str(len(text1))) # or print("Строка №1", len(text1))

print("Строка №2 " + str(len(text2))) # or print("Строка №2", len(text2))

print("Строка №3 " + str(len(text3))) # or print("Строка №3", len(text3))

4,7(66 оценок)

Открыть все ответы

Ответ:

Nadezhdakarpov1

11.01.2023

Type
Digits=array[0..9] of byte;

procedure RD(n:integer; var ad:Digits; var f:boolean);
{ заполняет массив количеством повторений цифр числа n
f=True, если хоть одна цифра повторяется }
var
i,d:byte;
begin
for i:=0 to 9 do ad[i]:=0;
f:=False;
while n>0 do begin
    d:=n mod 10;
    ad[d]:=ad[d]+1;
    if ad[d]>1 then f:=True;
    n:=n div 10
    end;
end;

var
i,j,n,k:integer;
a:Digits;
f:boolean;

begin
for i:=1 to 2 do begin
    Write('n = '); Read(n);
    n:=Abs(n); { против ввода отрицательных }
    RD(n,a,f);
    if f then begin
      Write('Встречаются больше одного раза цифры ');
      for j:=0 to 9 do
        if a[j]>1 then Write(j,' ');
      Writeln
      end
    else Writeln('Все цифры в числе уникальны')
    end
end.

Пример
n = 153632
Встречаются больше одного раза цифры 3
n = 1030041
Встречаются больше одного раза цифры 0 1

var
s,sr:string;
c:char;
i,j,n,p:byte;

begin
for i:=1 to 2 do begin
    Write('Введите строку: '); Readln(s);
    n:=Length(s);
    sr:='';
    for j:=1 to n do begin
      c:=s[j];
      if Pos(c,Copy(s,j+1,n-j))>0 then sr:=sr+c+' ';
      end;
    if Length(sr)>0 then Writeln('Встречаются больше одного раза символы ',sr)
    else Writeln('Все символы в строке уникальны')
    end
end.

Пример
Введите строку: информатика
Встречаются больше одного раза символы и а
Введите строку: проблема
Все символы в строке уникальны

4,7(49 оценок)

Ответ:

loopootoonoo

11.01.2023

Можно управлять чем-то вручную, а можно запрограммировать и надеяться, что все сработает как надо. В быту широко используется программное управление для выполнения стандартных операций. Например выбор режим стирки в стиральной машине. При выборе того или иного режима активируется соответствующая программа. Просто и удобно.

Точно также производится готовка в мультиварке. Но когда требуется сделать что-то, чего не учитывает программа, делать приходится вручную.

При всей универсальности программа не может учесть всего. Всегда приходится что-то корректировать. Поэтому на практике приходится прибегать к обоим методам. Особенно, когда ручное управление затруднено. Так происходит, например при управлении марсоходом. Радиосигнал идет довольно долго и просто "порулить" марсоходом с земли в реальном времени не получится. Приходится отправлять блок команд и принимать сигнал о их выполнении.

В общем, вручную безусловно лучше, но не всегда возможно.

4,8(7 оценок)

Это интересно:

Семейная-жизнь

21.02.2020

Как справиться с ребенком, который постоянно говорит нет...

02.01.2020

Как стать серьезным: 10 советов от успешных людей...

Компьютеры-и-электроника

25.10.2022

Как словить покемона Кресселию...

Здоровье