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

Информационный объём сообщения 4 килобайта. Алфавит, символами которого записано это сообщение содержит 256 символов. Сколько символов в сообщении? сделать с решением дам

Показать ответ
Ответ:
dashkin21
dashkin21
21.03.2022 07:45
Решение:

#include <stdio.h>

#include <math.h>

#include <locale.h>


int main()

{

setlocale(LC_ALL, "rus");

int i, god, obl1, obl2, z, itog;

obl1 = 100000;

obl2 = 200000;

printf("Введите сколько лет происходит модернизация:\n");

scanf_s("%i", &god);

for (i = 1; i < god; i++)

{

 if (obl2 > obl1)

 {

  z = obl1 + obl2;

  obl1 = z;

 }

 else

 {

  z = obl1 + obl2;

  obl2 = z;

 }

 itog = obl1 + obl2;

}

if (obl2 > obl1)

{

 printf("Наибольший доход у второй области: %2d сентиннеалей\n", obl2);

}

else

{

 printf("Наибольший доход у первой области: %2d сентиннеалей\n", obl1);

}

printf("Общий доход за %2d лет : %2d сентиннеалей\n", god, itog);

getchar(); getchar();

}

Прикрепил пару тестов и саму программу, если интересно



Построив множество предприятий, проведя образовательную, технологическую и культурную реформы, вы пр
Построив множество предприятий, проведя образовательную, технологическую и культурную реформы, вы пр
Построив множество предприятий, проведя образовательную, технологическую и культурную реформы, вы пр
0,0(0 оценок)
Ответ:
Physic777
Physic777
02.10.2021 18:10

var b: array of real;

i,n,ll: integer;

max,min,a: real;

begin

write('Введите длину массива: ');

readln(n);

write('Введите число a: ');

readln(a);

setlength(b,n);

writeln('Массив B: ');

for i:=0 to n-1 do

begin

b[i]:=random(3*n);

write(b[i],' ');

end;

writeln;

min:=b[0];

max:=a;

for i:=0 to n-1 do

if min>b[i] then min:=b[i]

else if max<b[i] then begin

max:=b[i];

ll:=i;

end;

writeln('Наименьший элемент массива - ',min);

writeln('Элемент, больший числа ',a,' - ',max,' - находится в ',ll+1,' месте');

end.


Можете вместо real типа данных использовать также и integer. Просто неизвестно какие данные будут использоваться во время проверки

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