В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
wehter83
wehter83
02.06.2023 13:16 •  Информатика

Ловека? 4
Домашнее задание
No
Абак
Найди информацию в сети Интернет. Заполни таблицу.
Изобретение, устройство
Дата
Где и кем создано
Приблизительно Древний
с V века до н. э. Рим
XVI-XVII BB. Российское
государство
1.
2.
Счеты
Линейка для навигационных
3.
расчетов
4.
Машина Паскаля
5.
Механическая счетная
машина – арифмометр
6.
Вычислительный автомат
7.
Аналитическая машина
8.
Счетно-перфорационная
машина
9. Электронная вычислитель-
ная машина ENIAC
10. Малая электронная счетная
машина (МЭСМ)
11. Большая электронная
счетная машина (БЭСМ)
12. Первый IBM компьютер
13. Первый компьютер с
микропроцессором Pentium
19​

Показать ответ
Ответ:
z0mD
z0mD
05.03.2023 18:45

1.

var x: integer;

begin

   randomize;

   x := random(9000) + 1000;

   x := x - x mod 10;

   writeln(x);

end.

2.

var x, _sum: integer;

begin

   randomize;

   _sum := 0;

   x := random(9000) + 1000;

   x := x - x mod 10;

   writeln('Случайное число:', x);

   while x > 0 do

       begin

       _sum := _sum + x mod 10;

       x := x div 10;

       end;

   if _sum mod 3 = 0 then

       writeln('Сумма цифр кратна трём!')

   else

       writeln('Сумма цифр не кратна трём!');

end.

3.

var x, _sum: integer;

begin

   randomize;

   _sum := 0;

   x := random(9000) + 1000;

   writeln('Случайное число: ', x);

   write('Если записать его в обратном порядке: ');

   while x > 0 do

       begin

       write(x mod 10);

       x := x div 10;

       end;

end.

0,0(0 оценок)
Ответ:
Фуууфиииик
Фуууфиииик
10.04.2021 01:53

Задание 15

num = int(input("Введите число: "))

num_help = num

num_len = 0

first_el = num

last_el = num % 10

while num_help:  # Определяем длину числа

   num_help //= 10

   num_len += 1

count = 0

while count != num_len - 1:  # while num_help > 0:

   first_el //= 10  # first_el = first_el // 10

   count += 1

num //= 10  # Выявляем середину

num %= 10 ** (num_len - 2)  # Возводим в степень

print(str(last_el) + str(num) + str(first_el))

Когда изучите строковый тип данных и срезы, можно будет сделать и так:

num = input("Введите число: ")

print(num[-1] + num[1:-1] + num[0])

Задание 16

num = int(input("Введите число: "))

div = num

mod = 0

last_el = num % 10

count = 0

num_help = num

num_len = 0

while num_help:  # Определяем длину числа

   num_help //= 10

   num_len += 1

while div:

   mod = div % 10

   div //= 10

   if mod == last_el:

       count += 1

if count == num_len:

   print("Цифры в числе одинаковые")

else:

   print("Цифры в числе разные")

Аналогично 1-ому:

num = input("Введите число: ")

if num == num[::-1]:

   print("Цифры в числе одинаковые")

else:

   print("Цифры в числе разные")

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота