Штирлиц поручил радистке кэт подобрать чемодан для перевозки рации. чемодан и рация имеют форму параллелепипеда. рацию можно класть в чемодан только вертикально или горизонтально (рацию нельзя ставить под углом к дну чемодана). боковые стенки рации должны быть параллельны боковым стенкам чемодана. рация не может поместиться в чемодане, если при этом какой–либо из ее размеров больше или равен соответствующему размеру чемодана. ниже на рисунке примеры неправильного и правильного размещения рации в чемодане. напишите программу, которая подскажет радистке кэт, поместится ли рация в чемодане. входные данные в первой строке входных данных записано три числа – размеры рации в сантиметрах, а во второй – размеры чемодана в сантиметрах. все числа целые положительные и не превосходят 100. выходные данные в выходных данных требуется записать строку помещается, если рация помещается в чемодане, или строку не помещается в противном случае.

👇

Ответ:

ainura8326

06.04.2021

Var x,y,z,x1,y1,z1:integer;
begin
write('введите высоту рации=>');
readln(x);
write('введите высоту рации=>');
readln(y);
write('введите высоту рации=>');
readln(z);
write('введите высоту чемодана=>');
readln(x1);
write('введите высоту чемодана=>');
readln(y1);
write('введите высоту чемодана=>');
readln(z1);
if ((x<x1) and (y<y1) and (z<z1)) then writeln('ПОМЕЩАЕТСЯ')
else writeln('НЕ ПОМЕЩАЕТСЯ');
end.

4,5(89 оценок)

Открыть все ответы

Ответ:

VaSa4547

06.04.2021

Задание 1integerВещественные числаДля объявления переменныхWritelnЗадание 2

На третьей строчке, видимо, ошибка, и вместо Вывод(x) на самом деле Ввод(x).

var x: integer; y: real; begin Readln(x); y := (10 + 2 * x) / (11 - x); Writeln(y); end.При x = 3 переменная y = 2Задание 3var number, resultNumber, i: integer; begin resultNumber := 1; for i := 1 to 3 do begin Readln(number); resultNumber := resultNumber * number; end; Writeln(resultNumber); end.Задание 4var a: integer; b, c: real; begin a := 3; b := -1.5; c := 6 - 2 * b; c := c - a; Writeln(c); end.Результатом вывода будет число 6Задание 5var x, y, z: integer; begin x := 8; y := 2; if (x > y) then z := x - y else z := y + x; Writeln(z); end.

4,4(23 оценок)

Ответ:

ekaterina20122

06.04.2021

а) Если адрессация 32-х разрядная, то число ячеек - $2^{32}$ .

б) Максимальный объмем адрессуемой памяти - $2^{32}$ = 4гб. Вспомните траблу с тем, что на 32-х разрядных ОС (которые задействуют проц в виртуальном режиме - могут использовать его как 32-х разрядный, если он даже 64-х) видимый максимальный объмем ОЗУ не больше этого предела, хоть пусть стоят плашки по 32гб.

в) Ну, если считать, что первый адрес - 0, то последний $2^{32}$ - 1

П.С. Число ячеек = объему памяти в байтах, так как можно адрессовать каждый байт - было сказано, что "при каждой операции... 32 бита данных", это говорит, что регистры тоже 32-х разрядные, но если вы видели какой-нибудь из языков ассемблера, то там можно обращаться к частям регистров, вплоть до размера части в 8 бит. Это на практике.

П.С.С. Сказано что проц теоретический, возможно, подразумевается, что ячейки не 1 байт, а 4 байта, т.е число ячеек в 4 раза меньше - $2^{30}$ . Выбирайте, что вам кажется более подходящим, препод вам известнее :)