1)
case k of
4: a:=k+2;
5: a:=k+4;
6: a:=k+6;
7: a:=k+8;
8: a:=k+10;
9: a:=k+12;
10: a:=k+14;
end; { case }
2) if k in [4..10] then a:=3*(k-2);
010 двоичный - 2 десятичный
Джуди занимается пением и живёт в Риме
Айрис занимается балетом и живёт в Париже
Линда занимается кино и живёт в Чикаго
Вот программа:
uses Crt;
var i: integer;
begin
ClrScr;
for i:=65 to 90 do
Write(Chr(i):4);
WriteLn; WriteLn;
for i:=97 to 122 do
Write(Chr(i):4);
WriteLn;
ReadLn;
end.
Заполним таблицу по исходным значениям:
А B C D
4 X 6 11
12 B1-2 12 12
По рисунку видно, что все секторы равны, следовательно и в B2 должно быть 12, а это получиться только в том случае, если B1 = 14.
Ответ: 14