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

Команда з розгалуженням (умовний оператор) у Python. Напишіть програму, яка перевіряє чи введене число ділиться без остачі на 3 у Python.

👇
Ответ:
grexegor
grexegor
03.09.2022
a = int(input('Введіть число: ')) if(a/3) == int(a/3):    print('Число ділиться') else:    print('Число не ділиться')
4,8(71 оценок)
Открыть все ответы
Ответ:
carinakulebaki64356
carinakulebaki64356
03.09.2022

УВ 1:

Вначале у тебя а -5, а б-6.

Потом условие: если а меньше трёх, то а становится равной б, но ведь а это 5, т.е. этого мы не делаем.

И последнее: д=а+б=5+6=11

ответ:11

УВ 2:

А=3, б=2.1

Б<а? Да, меньше, т.к. 2.1 меньше 3

Значит выполним действие: напечатаем б, т.е.2.1

Затем в обязательном порядке напечатаем а, т.е.3

В итоге на экране напечатано будет:2.13

Ув3:

А,б,ц равны 3,4,5 соответственно

А меньше 4? Да, меньше, почему печатаем число а,число б и число ц, т.е. будет напечатано 3 4 5.

Иначе напечатолось бы сумма 3,4,5, т.е. 12

Ув4:

М=2

М >2?

Нет, не больше, значит м=м*м, т.е. 4

4,4(8 оценок)
Ответ:
камидь
камидь
03.09.2022
1. Вот так это можно написать коротко, быстро и понятно, если разбираться в современном Паскале.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

function SoD(Self:integer):integer; extensionmethod;
begin
  while Self>0 do (Result,Self):=(Result+Self mod 10,Self div 10);
end;

function Diff(Self:array of integer):integer; extensionmethod;
begin
  Result:=Self.Max.SoD-Self.Min.SoD
end;

begin
  Writeln(ReadArrInteger('Три пятизначных числа:',3).Diff)
end.

Пример
Три пятизначных числа: 12345 23456 34567
10

2. А вот так примерно учат у нас в школах...

program School;
var
  i,n,max,min,d:integer;
begin
  Write('Введите 1-е пятизначное число: '); Read(n);
  max:=n;
  min:=n;
  for i:=2 to 3 do begin
    Write('Введите ',i,'-е пятизначное число: '); Read(n);
    if n<min then min:=n
    else
      if n>max then max:=n;
    end;
  d:=0;
  while max>0 do begin
    d:=d+max mod 10;
    max:=max div 10
    end;
  while min>0 do begin
    d:=d-min mod 10;
    min:=min div 10
    end;
  Writeln(d)
end.

Пример
Введите 1-е пятизначное число: 12345
Введите 2-е пятизначное число: 23456
Введите 3-е пятизначное число: 34567
10
4,4(39 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ