М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
жангул1
жангул1
25.07.2020 17:42 •  Информатика

Посмотрите правильно ли написала код исходя из задания? Задание: Необходимо написать программу, которая считывает две строки, введённых пользователем. После этого программа должна вывести на экран, какая строка длиннее и на сколько символов. Если строки одинаковой длины, вывести соответствующее сообщение.(вывести необходимо то что внутри stringf = input("Enter))

def get_string_length_diff(string1,string2):
return len(string1)-len(string2)

stringf = input("Enter two strings:\n\na\nFirst string is longer by 11 characters.\n"
"\nEnter two strings:\nhello\nhello\nStrings are equal length.\n"
"\nEnter two strings\nhello\nhello hello\nSecond string is longer by 6 characters.")

print(stringf())
strings = input()
strings_deff = get_string_length_diff(stringf,strings)
if strings_deff==0:
print("они равны")
elif strings_deff>0:
print(stringf)

👇
Открыть все ответы
Ответ:
Var a: array of integer; // Объявление массива целых чисел
  i, n: integer; // объявление целочисленных переменных
begin
  // Запросим с клавиатуры размер массива
  // и запишем его в переменную n
  write('введите n:'); 
  readln(n);
  
  // Теперь выделим память под n элементов массива
  SetLength(a, n);
  
  // теперь запросим с клавиатуры n чисел для массива
  for i := 0 to n-1 do begin
    write('a[', i, ']=');
    readln(a[i]);
  end;
  
  // теперь в цикле уменьшим каждый элемент на единицу
  for i := 0 to n-1 do 
    a[i] := a[i] - 1;
  
  // распечатаем массив
  for i := 0 to n-1 do 
    write(a[i], ' ');
end.
4,8(7 оценок)
Ответ:
bilainфом
bilainфом
25.07.2020
//Pascal
  var a,b, I, maxsumm, max : integer;
 
  function summdel(x:integer):integer; //результат - сумма делителей х
  var k,sum:integer;
  begin
    sum:=0;
    for k := 1 to x div 2 + 1 do
      if x mod k = 0 then sum:= sum+k;
    summdel:=sum;
  end;
 
  begin
   writeln('Введите границы a,b ');
   readln(a,b);
    maxsumm := 1;
    max := 1;
    for i := a to b do
     begin
        if summdel(i) > maxsumm then
          begin maxsumm:= summdel(i);
            max := i;
          end;
     end;
     writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
  end.
4,4(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ