Den000000
05.04.2021 07:24

Re: { Программа-пример на языке Pascal program Example; var x: Integer; { Объявили переменную целого типа (со знаком) } begin x := 10; { Присвоили переменной x значение 10 } writeln(x); { Вывели значение переменной x на экран } x := x + 1; { Увеличили значение переменной x на единицу } writeln(x); { Вывели значение переменной x на экран } end.​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
школота90
16.09.2020 02:19

кроссворд на фото

Объяснение:

1.Эта единица часто используется для выражения объема памяти КОМПЬЮТЕРА и дисковода. (гигабайт)

2.Величина, равная 8 битам. (Байт)

3.Содержание сигналов, которые человек получает из различных источников. (Информация)

4. 1 048 576 байт (220). В другом понимании - 1 000 000 байт. (мегабайт)

5. наименьший элемент языка, имеющий идею или смысл, пригодный для общения. (сообщение)

6. Наименьшая единица текстовой информации (символ)

7. категория, выражающая внешнее, формальное взаимоотношение предметов или их частей (количество)

8. количественная характеристика пространства, занимаемого телом или веществом. (объём)

9.Минимальная единица измерения информации. (Бит)

10.Число символов в алфавите (мощность)

11.Конечный набор для представления информации с различными символами. (Алфавит)

12. Письменное или устное высказывание (текст)


Красворд на тему информатика
0,0(0 оценок)
Ответ:
morozovasanya
01.05.2022 18:56

826178 827557

865748 867498

280514 283175

199991 200002

304502 306027

Объяснение:

Задачка интересная смог решить только методом перебора

(Закономерностей не выявил)

состряпал функцию для Excel

Function Sleft(s As Variant) 'для левых счастливых чисел

For i = 1 To s

   s = s - i

   ls = CInt(Mid(s, 1, 1)) + CInt(Mid(s, 2, 1)) + CInt(Mid(s, 3, 1))

   rs = CInt(Mid(s, 4, 1)) + CInt(Mid(s, 5, 1)) + CInt(Mid(s, 6, 1))

   If ls = rs Then Exit For

Next

Sleft = s

End Function

Function SRight(s As Variant) 'для правых счастливых чисел

For i = 1 To s

   s = s + i

   ls = CInt(Mid(s, 1, 1)) + CInt(Mid(s, 2, 1)) + CInt(Mid(s, 3, 1))

   rs = CInt(Mid(s, 4, 1)) + CInt(Mid(s, 5, 1)) + CInt(Mid(s, 6, 1))

   If ls = rs Then Exit For

Next

SRight = s

End Function

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