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

написать 2 программы (Python или Pascal) 1.Найти, сколько чисел от a до b делятся на 7 или 9 (но не на 7 и 9 одновременно).
2.Среди всех трёхзначных чисел напечатать те, у которых одна из цифр равна сумме двух других

👇
Ответ:
madike
madike
08.05.2022

Python:

1:

a = int(input())

b = int(input())

count = 0

for i in range(a, b + 1):

   divided_by_7 = i % 7 == 0

   divided_by_9 = i % 9 == 0

   if divided_by_7 and divided_by_9: continue

   if divided_by_7 or divided_by_9: count += 1

print(count)

2:

for number in range(100, 1000):

   digits = [int(i) for i in str(number)]

   if digits[0] == digits[1] + digits[2] \

           or digits[1] == digits[0] + digits[2]\

           or digits[2] == digits[0] + digits[1]:

       print(number)

4,5(87 оценок)
Ответ:
Sanchoys123
Sanchoys123
08.05.2022

Программа:

Python:

№1)

a = int(input())

b = int(input())

n = 0

for i in range(a, b + 1):

   if not(i % 7 == 0 and i % 9 == 0) and (i % 7 == 0 or i % 9 == 0):

       n += 1

print(n)

№2)

for i in range(100, 1000):

   if int(str(i)[0]) == int(str(i)[1]) + int(str(i)[2]):  print(i)

   elif int(str(i)[1]) == int(str(i)[0]) + int(str(i)[2]):  print(i)

   elif int(str(i)[2]) == int(str(i)[1]) + int(str(i)[0]):  print(i)

4,7(21 оценок)
Открыть все ответы
Ответ:
krasatulea83
krasatulea83
08.05.2022

Linux это не система, а ворох разнородных поделок, смотанных изолентой

Почему же так происходит? Потому что

Человеку вообще плевать на приложения. Он пытается достичь своих целей… А в Линуксе потолок проектирования — не достижение целей, а решение задач.… сделаем поддержку пересылки файлов, это универсально и удовлетворит всех. А чтобы выслать селфач — пусть человек ищет софтину для захвата с веб-камеры, потом ретуширует фотку в каком-нибудь графическом редакторе, потом пересылает её с семнадцатой опции в меню «Инструменты». У НАС ЖЕ ЮНИКСВЕЙ!

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

4,5(65 оценок)
Ответ:
vladysh205
vladysh205
08.05.2022
Var input,output:text; n,i,j,g,nm,ans,t:integer;ara:array[0..1000] of integer;ar,arq:array[0..1000] of integer; ts,sum,a:integer;beginassign(input,'f.in');reset(input); assign(output,'f.out');rewrite(output);readln(input,a,n);ans:=10000;
for i:=1 to n do beginread(input,ar[i]);ts:=ts+2*ar[i];end;
  if ts<a then writeln(output,'-1') else
  begin

ara[1]:=3;for i:=2 to 15 do begin ara[i]:=3*ara[i-1];end;
 for i:=1 to ara[n] do begin if arq[n]<2 then begin  inc(arq[n]);sum:=sum+ar[n];inc(nm);  end else  begin   g:=n;while arq[g]>1 do begin sum:=sum-ar[g]*arq[g];dec(nm,arq[g]);arq[g]:=0;dec(g);end;
 inc(arq[g]);sum:=sum+ar[g];inc(nm);end;if sum=a then begin if nm<ans then ans:=nm;end;end;
 if ans>1000 then writeln(output,'0') else writeln(output,ans);   end;
close(output);close(input);end.
4,6(94 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ