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

Cnt2_3 ввести 6 чисел, подсчитать количество чисел принадлежащих интервалу (10 ; 12,3].

👇
Ответ:
vseznaika29
vseznaika29
09.06.2021
Var
  s,i:integer;
  x:real;
begin
for i:=1 to 6 do
  begin
  readln(x);
  if (x>10) and (x<=12.3) then s:=s+1;
  end;
writeln('ответ: ',s);
end.
4,4(61 оценок)
Открыть все ответы
Ответ:
Pandochka7771
Pandochka7771
09.06.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 оценок)
Ответ:
AlexandraBobkova
AlexandraBobkova
09.06.2021
Uses GraphABC; 
procedure Draw(x, y, l, u : Real; t : Integer);

procedure Draw2(Var x, y: Real; l, u : Real; t : Integer);
begin
Draw(x, y, l, u, t);
x := x + l*cos(u);
y := y - l*sin(u);end; 
begin
if t > 0 then
beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1);
Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end
else
Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end;
begin
SetWindowSize(425,500);
SetWindowCaption('Фракталы: Снежинка Коха');
Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4);
Draw(210, 8, 400, -pi/3, 4);end.
4,6(15 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ