Var st:real;
mn:integer;
d:1..7;
begin
write('Введите стоимость 1 минуты в рублях st=');
readln(st);
write('Введите продолжительность разговора в минутах mn=');
readln(mn);
repeat
write('Введите номер дня недели d=');
readln(d);
until d in [1..7];
case d of
1..5:st:=st*mn;
else st:=st*mn*0.8;
end;
write('Стоимость разговора=',st:0:2);
readln
end.
Ответ:
6
Объяснение:
От 0 до 5(включительно) 6.
6 раз повториться действие
s:=s+1;
Значит будет:1+1+1+1+1+1=6
Использовать Чертежник
алг
нач
сместиться на вектор (-10,3)
опустить перо
сместиться на вектор (8,0)
сместиться на вектор (2,8)
сместиться на вектор (2,-8)
сместиться на вектор (8,0)
сместиться на вектор (-6,-5)
сместиться на вектор (3,-8)
сместиться на вектор (-7,5)
сместиться на вектор (-7,-5)
сместиться на вектор (3,8)
сместиться на вектор (-6,5)
поднять перо
сместиться на вектор (9,-1)
опустить перо
сместиться на вектор (1,4)
сместиться на вектор (1,-4)
сместиться на вектор (5,0)
сместиться на вектор (-4,-3)
сместиться на вектор (2,-5)
сместиться на вектор (-4,3)
сместиться на вектор (-4,-3)
сместиться на вектор (2,5)
сместиться на вектор (-4,3)
сместиться на вектор (5,0)
поднять перо
сместиться на вектор (-1,1)
опустить перо
сместиться на вектор (-6,8)
поднять перо
сместиться на вектор (10,-8)
опустить перо
сместиться на вектор (6,8)
поднять перо
сместиться на вектор (-4,-13)
опустить перо
сместиться на вектор (6,-1)
поднять перо
сместиться на вектор (-14,1)
опустить перо
сместиться на вектор (-6,-1)
поднять перо
сместиться на вектор (10,-2)
опустить перо
сместиться на вектор (0,-5)
поднять перо
кон
1)
IP 9. 102. 202. 52
маска 255. 255. 240. 0
адрес 9. 102. 192. 0
---------------------------------------------
в адрес сразу записываем выделенные полностью соответствующие байты (первый и второй байты) байтам маски =255 (255(10сс) = 1111 1111 (2сс))
последний байт маски =0, он "гасит" всё, и в адресе будет 0.
----------------------------------------------
остался один третий байт.
202 и 240
202 (10сс) = 128+64+8+2=2^7 + 2^6+2^3+2^1 = 1100 1010 (2cc)
240 (10cc) = 128+64+32+16=2^7+2^6+2^5+2^4=1111 0000 (2cc)
--------------------------------------------------
поразрядная конъюнкция:
1100 1010 * поразрядно
1111 0000
----------------
1100 0000 =2^7 +2^6 =128+64= 192 (10cc) - искомое значение третьего байта в 10сс.
// PascalABC.NET 3.0, сборка 1073
var
Bag,Bagaj:array[1..2] of longint;
begin
Bagaj[1]:=5; Bagaj[2]:=43600;
{ перенос Bagaj -> Bag }
Bag[1]:=Bagaj[1]; Bag[2]:=Bagaj[2];
Writeln('Предметов- ',Bag[1],', общий вес ',Bag[2]);
Bag[1]:=4; Bag[2]:=24540;
{ перенос Bag -> Bagaj }
Bagaj[1]:=Bag[1]; Bagaj[2]:=Bag[2];
Writeln('Предметов- ',Bagaj[1],', общий вес ',Bagaj[2]);
end.
<em><u>Тестовое решение:</u></em>
Предметов- 5, общий вес 43600
Предметов- 4, общий вес 24540
