Нужно перевести значения и установить степень в двоичной системе где после 2-ки "?" там должна быть степень в какой будет этот обьем данных ?Тбайт =? Мбайт = 1073741824 байт; 512 Гбайт = 2? Мбайт = 2? Кбайт;
80 Гбайт = (2?+ 2?) Кбайт = (2?+ 2?) бит.
223
304
Ответы на вопрос:
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.
Популярно: Информатика
-
Валерушка811.08.2022 21:28
-
oleg196011.01.2023 04:43
-
anchobaby30.06.2020 17:18
-
WakaAmigo17.04.2022 13:38
-
dyusembekov127.02.2021 10:35
-
кудряшёв08.01.2020 06:04
-
nikav92com19.02.2022 11:46
-
Dezzy1213.08.2021 13:18
-
лиьомьм22.09.2020 03:10
-
SankohTew17.10.2020 09:45