<em>Решение:</em>
Три варианта для обеда, три варианта для десерта.
Возможных вариаций - 9(1-1,1-2,1-3,2-1,2-2,2-3,3-1,3-2,3-3).
<u>Ответ:</u> 9
P.S. - График предоставить могу, но мне, если честно, лень его чертить, сканировать и выкладывать для такой простенькой задачи. Поэтому предоставляю тебе альтернативный вариант:
1)Чертишь три прямоугольника
2)Отводишь от каждого из них по три стреолчки
3)На концах стрелочек чертишь еще три треугольника. В нижней строке должно получиться 9 прямоугольников.
4)Записываешь в каждый, по очереди, каждую из приведенных мной выше вариаций.
Var i, N, sum: integer;
begin
sum := 0;
readln (N);
for i := 1 to N do sum := sum + i;
writeln (sum);
<span>end.</span>
//PascalABC.Net 3.2
begin
var a:=arrrandom (readinteger('n ='), -15, 15); a.Println;
var b: array of integer;
for var i:=0 to length(a)-1 do if not((a[i]<0) or ((a[i] mod 8)=0)) then begin
setLength (b, length(b)+1);
b[length(b)-1]:=a[i]
end;
b.Print;
end.
3 в ней могут использоваться для записи числа только цифры 0, 1, 2
<span>a = int(input("Сторона квадрата = "))
P = 4*a
S = pow(a,a)
print("P = ",P)
print("S = ",S)
x = int(input("Ширина прямокутника = "))
y = int(input("Довжина прямокутника = "))
s = x*y
print("Площа прямокутника = ",s)
</span>