Выручайте 1. на диске осталось 10кбайт свободного места. возможно ли сохранить на этот диск 50 изображений - id660361720220826 от game108551 26.08.2022 22:14

Question

Информатика: Выручайте 1. на диске осталось 10кбайт свободного места. возможно ли сохранить на этот диск 50 изображений по 250 байт каждое? 2. выполните перевод в биты: 1) 3 кбайта; 2) 1 мбайт; в килобайты: 1) 4096 бит; 2) 2,5 мбайта. 3. каждое показание счётчика, фиксируемое в памяти компьютера, занимает 10 бит. записано 100 показаний этого датчика. каков информационный объём снятых значений в байтах? №4. сообщение, записанное буквами 128-символьного алфавита, содержит 130 символов. какой объем информации оно

game108551 · Accepted Answer

//1. Переборный алгоритм Евклида (цикл repeat)

var a, b, с: integer;

begin

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

readln(a, b);

if a < b then с := a + 1 else с := b + 1;

repeat с := с - 1

until (a mod с = 0) and (b mod с = 0);

write('NOD = ', с)

end.

//2. Алгоритм с вычитанием (цикл while)

var a, b: integer;

begin

write('a = ');

readln(a);

write('b = ');

readln(b);

while a <> b do

if a > b then

a := a - b

else

b := b - a;

writeln('NOD = ', a);

end.

MOGZ ответил