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

ДО ІТЬ БУДЬ ЛАСКА!! Python! 1.Дано два числа. Виконайте їх додаваннята множення з використанням відповідних арифметичних операторів із присвоюванням.

2.Дано два числа. Виконайте їх порівняння на рівність і перевірте, чи більше перше число за друге.

3.Виконайте об’єднання рядків слів "опрацю" і "вання".

4.Складіть найпростіший код перевірки входження рядка "Чемпіонат України" в рядок "Чемпіонат України з футболу".

5.Складіть найпростіший код з’єднання рядків "зменшення значення" і "змінної" з використанням оператора об’єднання з присвоюванням.

👇
Ответ:
Гавхарчик
Гавхарчик
22.05.2023

Объяснение:

1. a = 5

b = 3

c = a + b

d = a * b

print(c, d)

2. a = 5

b = 3

if a == b:

   print("a дорівнює b")

elif a > b:

   print("a більше b")

else:

   print("a менше b")

3. s1 = "опрацювання"

s2 = "роботи"

s3 = s1 + s2

print(s3)

4. s1 = "Чемпіонат України"

s2 = "Чемпіонат України з футболу"

if s1 in s2:

   print("s1 входить в s2")

5. s1 = "зменшення значення"

s2 = "змінної"

s3 = s1 + s2

print(s3)

4,8(34 оценок)
Открыть все ответы
Ответ:
lina28052003
lina28052003
22.05.2023
Var
  m, n: integer;
  ms: array[1..9] of string;
  md: array[1..9] of string;
  m1: array[11..19] of string;
  me: array[1..9] of string;
  flag: boolean;

begin
 
  flag := false; { Пока ничего не выведено }
  ms[1] := 'сто'; ms[2] := 'двести'; ms[3] := 'триста'; ms[4] := 'Четыреста';
  ms[5] := 'пятьсот'; ms[5] := 'пятьсот'; ms[6] := 'шестьсот'; ms[7] := 'семьсот';
  ms[8] := 'восемьсот'; ms[9] := 'девятьсот';
  md[1] := 'десять'; md[2] := 'двадцать'; md[3] := 'тридцать'; md[4] := 'сорок';
  md[5] := 'пятьдесят'; md[6] := 'шестьдесят'; md[7] := 'семьдесят';
  md[8] := 'восемьдесят'; md[9] := 'девяносто';
  m1[11] := 'одиннадцать'; m1[12] := 'двенадцать'; m1[13] := 'тринадцать';
  m1[14] := 'четырнадцать'; m1[15] := 'пятнадцать'; m1[16] := 'шестнадцать';
  m1[17] := 'семнадцать'; m1[18] := 'восемнадцать'; m1[19] := 'девятнадцать';
  me[1] := 'один'; me[2] := 'два'; me[3] := 'три'; me[4] := 'четыре'; me[5] := 'пять';
  me[6] := 'шесть'; me[7] := 'семь'; me[8] := 'восемь'; me[9] := 'девять';
 
  Write('Введите целое число от 1 до 1000: ');
  Readln(m);
  if (m < 1) or (m > 1000) then Writeln('Шутки шутим?')
  else
  if m = 1000 then Writeln('Одна тысяча ')
    else
  begin
      { сотни }
    n := m div 100;
    if n > 0 then
    begin
      Write(ms[n]);
      flag := true
    end;
      { десятки }
    m := m mod 100;
    if m = 0 then Writeln(' ')
    else
    begin
      if (m > 10) and (m < 20) then
      begin
        if flag then Write(' ');
        Writeln(m1[m])
      end
      else
      if m > 0 then
      begin
        n := m mod 10;
        m := m div 10;
        if m > 0 then
        begin
          if flag then Write(' ') else flag := true;
          Write(md[m])
        end;
        if n <> 0 then
        begin
          { единицы }
          if flag then Write(' ');
          Write(me[n]);
        end
      end
    end
  end
end.

Тестовое решение:
Введите целое число от 1 до 1000: 429
Четыреста двадцать девять
4,7(26 оценок)
Ответ:
Arituk
Arituk
22.05.2023
Var
  s,subs:string;
  c:char;
  i,n,p:integer;
begin
  Writeln('Введите последовательность слов, разделенных пробелом');
  Readln(s);
  s:=' '+s+' ';
  Write('Введите искомый символ: '); Readln(c);
  subs:=' '+c;
  n:=Length(s);
  repeat
    p:=Pos(subs,s);
    if p>0 then begin
      i:=p+2;
      while (s[i]<>' ') and (i<=n) do i:=i+1;
      Write(Copy(s,p+1,i-p-1),' ')
    end;
    if i<=n then s:=Copy(s,i,n-i+1)
  until p=0 
end.

Тестовое решение:
Введите последовательность слов, разделенных пробелом
а роза упала на лапу азора
Введите искомый символ: а
а азора
4,4(92 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ