Объяснение:
var a,b,x,y,z:real;
begin;
clrscr;
write('vvedite dlinu kirpicha ');
readln(x);
write('vvedite shirinu kirpicha ');
readln(y);
write('vvedite visotu kirpicha ');
readln(z);
write('vvedite dlinu otverstiya ');
readln(a);
write('vvedite shirinu otverstiya ');
readln(b);
if (x<=a) and (y<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin
if (x<=a) and (z<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin
if (y<=a) and (z<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin
if (y<=a) and (x<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin
if (z<=a) and (x<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin
if (z<=a) and (y<=b) then writeln('kirpich vmeshaetsya v otverstie') else
write('kirpich ne vmeshaetsya v otverstie') end end end end end;
end.
div - это целочисленное деление. Это значит что при деление на числа, остаток отбрасывается.
Пример (10 div 3):
1. Если мы просто разделим 10 на 3, то мы получим 3.3333. При деление целочисленным делением (div-ом), дробная часть отбрасывается. И ответ будет просто 3.
Вот еще примеры:
2 div 2 = 1 | (2 / 2 = 0)2 div 3 = 0 | (2 / 3 = 0.66)5 div 3 = 1 | (5 / 3 = 2)13 div 6 = 2 | (13 / 6 = 2.16)РешениеИзначально s = 0, а i = 3
Цикл repeat-until означает что цикл будет совершаться, пока условие в until не будет выполнено.
Мы попадаем в цикл. Сначала выполняется s + 5, что будет равно 5, а после выполняется div с i: 5 div 3. Мы получаем ответ 1 и это же значение заносится в переменную s. От переменной i отнимается 1 и оно становится 2.
После итерации цикла, происходит проверка условия until. Так как 2 не меньше 1, цикл вновь запускается
Вторая итерация. s уже равна 1, значит: 1 + 5 div 2 -> 6 div 2 -> 3. s = 3. От i опят отнимается единица.
Опять завершаем цикл и проверяем условие 1 не меньше 1 (они равны), значит будет еще одна итерация.
Третья итерация. s = 3, значит 3 + 5 div 1 -> 8 div 1 -> 8. В s заносится 8. От i отнимаем 1 и i = 0
Так как 0 < 1, условие выполняется и мы выходим из цикла. Программа завершена. В s находится цифра 8, в i лежит 0
ответ:
120
объяснение:
1024 · 8 бит/c · 120 с = 1024 · 120 байт = 120 кбайт.