Есть ответ 👍

Нужно перевести значения и установить степень в двоичной системе где после 2-ки "?" там должна быть степень в какой будет этот обьем данных ?Тбайт =? Мбайт = 1073741824 байт; 512 Гбайт = 2? Мбайт = 2? Кбайт;
80 Гбайт = (2?+ 2?) Кбайт = (2?+ 2?) бит.

223
304
Посмотреть ответы 1

Ответы на вопрос:


1)

 

var a, b: integer; begin writeln('введите a, b: '); readln(a, b); if(b mod a = 0) then writeln('является делителем') else writeln('не является делителем'); end.

 

2)

 

var x, y, tmp: real; begin repeat writeln('введите x, y: '); readln(x, y); until(x < > y); if(x > y) then begin tmp : = y; y : = (x + y) / 2; x : = 2*(x * tmp); writeln('большее - x = ', x, ' меньшее - y = ', y); end else begin tmp : = x; x : = (x + y) / 2; y : = 2*(tmp * y); writeln('большее - y = ', y, ' меньшее - x = ', x); end; end.

 

Популярно: Информатика