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

Незнайка решивший написатьнезнайка решивший написать стихотворение в редакторе блокнот нажимал клавиши как показано ниже.в результате первые буквы текста выглядели как "че" как выглядит весь текст? в ответе запишите произведение чисел a,b,c где а-это количество заглавных букв в тексте, в-количество строк, с-количество точек в тексте.знак +стоит между кнопками, которые нажимались одновременно,прямоугольник -обозначение пробела

👇
Ответ:
Vikohkamy
Vikohkamy
26.12.2021
А как показано ниже?
4,7(47 оценок)
Открыть все ответы
Ответ:
Pandochka7771
Pandochka7771
26.12.2021

number = int(input("Введите натуральное число\n"))

d = int(input("Введите d\n"))

div_sum = even_sum = count = odd_count = even_count = greater_d = 0

print("a)")

for i in range(1, number+1):

   if number % i == 0:

       count += 1

       print(f'{count} делитель числа  -> {i} ')

       div_sum += i

       if i > d:

           greater_d += 1

       if i % 2 == 0:

           even_sum += i

           even_count += 1

       else:

           odd_count += 1

print("б)Сумма всех делителей ->", div_sum)

print("в)Сумма четных делителей ->", even_sum)

print("г)Количество делителей ->", count)

print("д)Количество нечетных делителей ->", odd_count)

print("е)Количество четных делителей ->", even_count)

print("ж)Количество делителей, больших d ->", greater_d)

4,7(1 оценок)
Ответ:
dianagatina04
dianagatina04
26.12.2021
Уровень А
type
  num=integer; { можно поменять на real, longint, даже char... }

procedure Swap(var a,b:num);
{ меняет местами значения a и b }
var
  t:num;
begin
  t:=a; a:=b; b:=t
end;

procedure Moving(var a,b,c:num);
begin
  if a>b then begin
    Swap(a,b);
    if b>c then begin
      Swap(b,c);
      if a>b then Swap(a,b)
    end
  end
  else begin
    if b>c then Swap(b,c);
    if a>b then Swap(a,b)
  end
end;

var
  a,b,c:num;
begin
  Write('Введите три числа: '); Read(a,b,c);
  Moving(a,b,c);
  Writeln(a,' ',b,' ',c)
end.

Уровень В
function Gcd(a,b: longint): longint;
{ Нахождение НОД }
var
  i: longint;
begin
  while b <> 0 do
  begin
    a := a mod b;
    i := b; b := a; a := i
  end;
  gcd := a
end;

procedure ShortFraction(var m,n:longint);
var
  k:longint;
begin
  k:=Gcd(m,n);
  m:=m div k; n:=n div k
end;

var
  a,b:longint;
begin
  Write('Введите числитель и знаменатель дроби: '); Readln(a,b);
  ShortFraction(a,b);
  Writeln('Дробь после сокращения равна ',a,'/',b)
end.

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