А1 = 3
В1 = А1 + 1 = 3 + 1 = 4
А2 = В1 - А1 = 4 - 3 = 1
В2 = А1 - А2 * 2 = 3 - 1 * 2 = 3 - 2 = 1
С2 = А1 + В2 = 3 + 1 = 4
D2 = В1 / 2 = 4 / 2 = 2
По значениям ячеек диапазона A2:D2 была построена диаграмма:
А2 = 1 В2 = 1 С2 = 4 D2 = 2
Смотрим на диаграммы:
На диаграмме б все столбики разные, а у нас два значения одинаковые => не подходит
На диаграмме с три сектора равные, а у нас два значения одинаковые => не подходит
На диаграмме а две полоски одинаковые, но две другие не соблюдают соотношение увеличения в 2 раза, как у наших значений => не подходит
На диаграмме г две полоски одинаковые и две другие соблюдают соотношение увеличения в 2 раза у двух, как у наших значений => подходит
ADBC216<span> = </span>711<span>618
</span>AD3416<span> = 44</span><span>340
</span>2F6516<span> = 12</span><span>133</span>
Var
a,b,c,d : integer;
<span>Begin </span>
for a:=1 to 4 do
for b:=a+1 to 4 do
for c:=b+1 to 4 do
<span> for d:=c+1 to 4 do </span>
writeln(a:3,b:3,c:3,d:3);
for a:=1 to 4 do
<span> for b:=a+1 to 4 do </span>
<span> for c:=b+1 to 4 do </span>
writeln(a:3,b:3,c:3);
for a:=1 to 4 do
<span> for b:=a+1 to 4 do </span>
writeln(a:3,b:3);
for a:=1 to 4 do
<span> writeln(a:3); </span>
readln;
<span> End.</span>
Var x,y:real;
begin
write('x = ');
readln(x);
if (x<-4)or(x>4)
then writeln('Функция не определена')
else begin
if x<0
then y:=0
else if x<2 then y:=x*x
else y:=4;
writeln('Y = ',y);
end;
end.
Пример:
x = 1.5
Y = 2.25
Второй вариант. Внизу картинка, которая всё подтверждает :)