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

НАПИСАТЬ ПРОГРАММУ ДЛЯ РЕШЕНИЯ ЗАДАЧИ В ПАСКАЛЕ


НАПИСАТЬ ПРОГРАММУ ДЛЯ РЕШЕНИЯ ЗАДАЧИ В ПАСКАЛЕ

Показать ответ
Ответ:
themac9
themac9
14.11.2020 14:25
1)            находим количество пикселей, используя для вычисления степени числа 2: n  = 512 · 256 = 29  · 28  = 217 2)            объём файла в  кбайтах  64 = 26 3)            объём файла в битах  26    · 213  = 219 4)            глубина кодирования (количество битов, выделяемых на 1 пиксель): 219  :   217  = 22  = 4 бита на пиксель 5)            максимальное возможное количество  цветов 24  = 16 6)            ответ:   16.
0,0(0 оценок)
Ответ:
1232956
1232956
08.02.2023 19:01

Надеюсь, что тебе нужно на паскале. Если нет, то пиши, я переделаю на любой другой.

Первая задача:

var digs:String;

   sum, sr:Real;

   i:Integer;

begin

 writeln('Введите 5 чисел через пробел');

 readln(digs);

 digs := digs.Replace(' ', '');

 sum := 0;

 for i := 1 to 5 do

   sum := sum + strToInt(digs[i]);

 sr := sum / 5;

 writeln('Сумма: ' + sum);

 writeln('Сред. арифметическое: ' + sr);

end.

Ввод:

1 2 3 4 5

Вывод:

Сумма: 15

Сред. арифметическое: 3

Вторая задача:

var i:Integer;

begin

 for i := 0 to 10 do

   writeln(i + '^3=' + i**3);

end.

Вывод:

0^3=0

1^3=1

2^3=8

3^3=27

4^3=64

5^3=125

6^3=216

7^3=343

8^3=512

9^3=729

10^3=1000

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