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

1. даны три целых числа а, в, с. найти их сумму, произведение, а также разность между а и в и частное чисел в и с. 2. даны два числа а и в. найти на сколько первое число меньше второго.

👇
Ответ:
Lizard1999
Lizard1999
06.06.2022
Если нужны программы на Паскале, то держи. Во втором, правда, не учитывается то, что числа могут быть равны. Если это сделать, то будет лишним палевом перед преподом, думаю)

№1

var A, B, C, sum, razn, proizv: integer; chastnoe: real;
label undf;
begin
undf: writeln('Введите А:');
readln(A);
writeln('Введите B:');
readln(B);
writeln('Введите C:');
readln(C);
sum := A + B + C; // находим сумму АВС
proizv := A * B * C; // находим произведение АВС
razn := A - B; // находим разность А и В
chastnoe := B / C; // находим частное В и С
writeln('Сумма А, В, С: ', sum);
writeln('Произведение А, В, С: ', proizv);
writeln('Разность А и В: ', razn);
writeln('Частное В и С: ', chastnoe);
end.

№2

var A, B, razn: integer;
begin
write('Введите А: ');
readln(A);
write('Введите B: ');
readln(B);
razn := abs( A - B );
if A < B then writeln('Первое число меньше второго на ', razn)
else writeln('Первое число больше второго на ', razn);
end.
4,5(24 оценок)
Ответ:
anonim869
anonim869
06.06.2022
Задача 1 
begin
var
a,b,c : integer;
readln ( a,b,c);
writeln (a+b+c);
writeln (a*b*c);
writeln ( a-b);
writeln ( b/c);
end.

Задача 2
begin
var
a,b : integer;
readln ( a,b);
if a>b then writeln (a/b);
if b>a then writeln (b/a);

end.

Ах, а блок-схема? Сам сможешь сделать?
4,6(40 оценок)
Открыть все ответы
Ответ:
денис9645
денис9645
06.06.2022

Самая оптимальная стратегия угадывания - дихотомия, то есть деление отрезка пополам и задавание вопроса больше? (или меньше?)

Например, загадано 50

Последовательность

32   64/2            больше

48   (32+64)/2   больше

56   (48+64)/2   меньше

52   (48+56)/2   меньше

50   (48+52)/2   попал

 

Теперь о задаче. Вопрос очень некорректный, если бы он звучал, как сколько попыток нужно сделать, чтобы угадать? , то решение простое

64 = 2^6, поэтому нужно 6 попыток 6 = 110b, значит 3 бит достаточно, чтобы в них разместить это количество попыток.

НО в задаче вопрос-то другой! Потому что в процессе отгадывания на каждом шаге нужно знать 1. Концы отрезка, 2. ответ

Концы это 6 бит и 6 бит +ответ 1 бит, итого 13 бит на шаг *6 = 78 бит. Можно ещё сократить немного, так как в последующем вопросе используется информация из предыдущего(один из концов интервала).

Уточни, что имеется в виду под фразой "какое количество информации", иначе задача неопределена и допускает многочисленные толкования.

4,4(30 оценок)
Ответ:
ViollaK2704
ViollaK2704
06.06.2022

Запишем условие задачи:

Поскольку в сообщениях одинаковое количество символов, то К1=К2. Соотношение количества информации можно записать как I1=1.5*I2. Общее кол-во символов в алфавите обозначается буквой N, по условию N1<=10, N2<=10.

Решение: I1=K1*i1; I2=K2*i2; Подставим в условие I1=1.5*I2 значения I1 и I2. Получаем K1*i1=1.5*K2*i2

Сократим в обеих частях уравнения К1 и К2, у нас останется

i1=1.5*i2

По условию мощности обоих алфавитов не превышают число 10, запишем это так

10>=2 в степени i1

10>=2 в степени i2

Предположим, что i2=1 бит, тогда i1=1.5 бита (а это противоречит условию)

Предположим, что i2=2 бита, тогда i1=3 бита -это и есть ответ задачи


4,8(2 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ