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

Дано число определить является ли оно четным трехзначным? (на языке программирования)

👇
Ответ:
star5647
star5647
10.07.2020
Program n1;
var a: integer;
begin
readln(a);
if (a>99) and (a<1000) and (a mod 2=0)
then write('является') else
write('не является');
end.
4,7(93 оценок)
Открыть все ответы
Ответ:
LEXSUS18
LEXSUS18
10.07.2020
Var
   a,b,d,K,kp:integer;
   P:boolean;
Begin
kp:=0;
ReadLn(a,b);
if (a = 1)or(a = 2) then
   Begin
   kp:=2;
   Write(2,' ',3)
   end
else if a = 3 then
        Begin
        kp:=1;
        Write(3);
        End;
if a < 5 then a:=5
else if a mod 2 = 0 then a:=a+1;
While a<=b do
   Begin
   K:=Trunc(Sqrt(A));
   d:=3;
   P:=true;
   While d <= K do
      Begin
      if A mod d = 0 then P:=false;
      d:=d+2
      End;
   if P then
      Begin
      kp:=kp+1;
      Write(' ',a);
      End;
   a:=a+2
   End;
if kp = 0 then Write(0)
End.
4,4(42 оценок)
Ответ:
ltimofienko
ltimofienko
10.07.2020

def check_simple(number:int):

assert number % number == 0 #check number is 'int' class

for i in range(2, number):

 if number % i == 0:

  return 0

return 1

def main():

a,b = input().split()

assert int(a) >= int(b)  #Гарантировано, что a >= b

res = []

for i in range(int(a), int(b)):

 if check_simple(i):

  res.append(i)

if len(res) == 0:

 print(0)

else:

 print(' '.join(str(i) for i in res))

if __name__ == '__main__':

main()

Объяснение:

Скриншот приложен на случай, если сайт поломает табуляции в коде. Программа протестирована


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